-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
alfa20
senior tag
abban tud valaki segíteni, hogy az alábbi miért nem csatolja be a munkafüzetet?
szeretnék egy makrót, hogy ne keljen mindig ugyan azt megírnom, de a csatolást nem küldi el.
a ".Attachments.Add ActiveWorksheet" sort már próbáltam az alábbiakkal is:
".Attachments.Add ActiveWorksheet.Name"
".Attachments.Add ActiveWorksheet.Fullname"Sub Mail_RE()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "cim@mail.hu"
.CC = ""
.BCC = ""
.Subject = ActiveWorkbook.Name
.Body = "Hello World!" & vbCrLf & vbCrLf & "szia"
.Attachments.Add ActiveWorksheet
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub -
#21598
lappy
őstag
anonymus89
#21597
lappy
őstag
válasz
anonymus89
#21597
üzenetére
itt nézz utána
-
#21597
anonymus89
addikt
anonymus89
addikt
Sziasztok!
Ezt a képet szeretném megcsinálni excel-ben diagramként tudnátok segíteni mi kellene beállítani, hogy mindkét adattábla látszódjon ugyanígy egymás mellett?
office 2003-ról van szó
ha bepipálom a másodlagos értéktengelyt akkor egyszerűen ráteszi a másikra és egymáson nem egymás mellet lesznek. Nem igaz, hogy ennyit felejtettem és nem bírok rájönni a módjára...
-
alfa20
senior tag
válasz
csongi
#21590
üzenetére
Szia,
nem emlékszem mennyi színt használtál, de teszem fel ha hármat
pl: zöld, kék, piros
akkor D2 legyen
=HA(B1="zöld";K5;HA(B1="kék";K6;HA(B1="piros";K7;"")))ha négy színt használsz, pl: zöld, kék, piros, fehér:
akkor D2 legyen
=HA(B1="zöld";K5;HA(B1="kék";K6;HA(B1="piros";K7;HA(B1="fehér";K8;""))))és így tovább...
-
válasz
Delila_1
#21591
üzenetére
hát vagy nagyon béna vagyok, vagy nemtudom már, kifolyik a szemem, de nem hajlandó operálni nekem, pedig az első pár futtatás jó volt,most pedig mindig ezt a 91-es hibát dobja, pedig elméletileg minden definiálva van.
[link]
tanácstalan vagyok, pedig egyszerűnek tűnik a dolog.jah, és a dátum formázása sem működik, tehát ha a változóba olyan dátum kerül, ami mögött nincs ott a 00:00, akkor a format parancs nem teszi hozzá. már napok óta ezzel az egyszerű dologgal szívok :/
-
#21593
Delila_1
veterán
PindurAnna
#21592
Delila_1
veterán
válasz
PindurAnna
#21592
üzenetére
Kijelölöd a formázandó területet. A formázás képlete
=JOBB($A1;2)<>BAL($B1;2)
-
#21592
PindurAnna
Közösségépítő
PindurAnna
Közösségépítő
Sziasztok. Ismét segítségre lenne szükségem.
Van két oszlopom, amiben számok vannak. Az első oszlopban adószámok - formátuma tehát 12345678-1-12
A második oszlopban cégjegyzékszámok vannak - formátuma 12-12-123456Át kellene színezni azokat a sorokat, ahol az adószám - első oszlop - két utolsó száma nem egyezik a cégjegyzékszám - második oszlop - két első számával.
-
Delila_1
veterán
válasz
bandus
#21587
üzenetére
mit = Range("a5")
Columns("A:A").Find(What:=mit, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Select
MsgBox Selection.RowSzerk.: itt a keresés végén a Select utasítást látod. Erre azért van szükség, hogy utána le tudd kérdezni a pozícióját. Előtte az A oszlopot jelölted ki, Activate utasítással 1-et írna a találat sorának.
-
-
-
Delila_1
veterán
válasz
bandus
#21584
üzenetére
Az egyszerűség kedvéért a keresést rögzítéssel vettem fel. utólag vettem észre, hogy nem állítottam le a rögzítést. A makró csak ennyi:
Sub Keres()
Dim tofind As Date, sor As Long, oszlop As Long
tofind = Range("A3")
Sheets("FEL").Select
Cells.Find(What:=tofind, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
sor = Selection.Row
oszlop = Selection.Column
MsgBox "Sor: " & sor & vbLf & "Oszlop: " & oszlop
End Sub -
ildikol
újonc
válasz
Delila_1
#21578
üzenetére
Megnéztem, de nem találok benne hibát..
Privatesubworksheet Change(byvaltargetAsRange)
Application.EnableEvents = False
Cells(Target.Row, "Q") = Time 'aktuális idő beírása
Application.EnableEvents = TrueIf Cells(Target.Row, "P") = "Eztkellmásolni" Then 'ezt a szöveget írd át
Masol Target.Row 'Masol makró meghívása, az aktuális sor értékének átadásával
Else
Application.CutCopyMode = False
End If -
Delila_1
veterán
válasz
ildikol
#21577
üzenetére
Az a gyanúm, hogy nem pontosan másoltad a makrót. A
Cells(Target.Row, "Q") = Time sor határozza meg a beírandó MOST() függvény helyét.Képet akarsz betenni? Annak nincs sok értelme. Tedd ki a fájlt egy elérhető helyre, de előbb a nem publikus adatok helyett írj bele kamu értékeket.
-
Delila_1
veterán
válasz
ildikol
#21575
üzenetére
Töröld ki az If Target.Column = 16 Then sort, és a hozzá tartozó utolsót, az End If-et.
Lesz egy káros hatása. Ahányszor beírsz valamit az első lapra, annak a sorát átmásolja egy új sorba a másik lapra. Mire kitöltöd a teljes sort (A-tól P-ig), 16 új sorod lesz a másoltakat tartalmazó lapon.
-
#21573
kőbaltazár
tag
kőbaltazár
tag
Ja még annyit, hogy a listában jelenleg 8 tétel látszik. Be lehet állítani, hogy több látszódjon?
-
#21572
kőbaltazár
tag
kőbaltazár
tag
Sziasztok!
Saját készítésű legördülő listában lehet valahogy egérgörgővel le-fel közlekedni? (EXCEL 2003)
Üdv és köszi! -
PistiSan
addikt
válasz
Delila_1
#21527
üzenetére
Maradtam végül az eredeti megoldásnál, kis módosítással.
Eredeti: =JOBB(B1;(HOSSZ(B1)-2))
Új:= =JOBB(B1;(HOSSZ(B1)-2))*1A TRIM-el sajnos nem volt jó, mert ugyan megkaptam a számot, de szorozni nem lehetett 1-el, hibát kapsz úgy.
Ha kimásolom, és értékként illesztem be, majd megszorzom 1-el, úgy jó volt, de az első verzió végül is jobb megoldás. -
#21570
Delila_1
veterán
littleNorbi
#21569
Delila_1
veterán
válasz
littleNorbi
#21569
üzenetére
Nincs mit.
-
#21568
Delila_1
veterán
kerteszke3
#21567
Delila_1
veterán
válasz
kerteszke3
#21567
üzenetére
Örülök neki, szívesen.
-
#21566
Delila_1
veterán
kerteszke3
#21565
Delila_1
veterán
válasz
kerteszke3
#21565
üzenetére
Tömbképlet! beírod a képletet a kapcsos zárójelek nélkül, majd a szerkesztőlécen állva Shift+Ctrl+Enterrel viszed be.
{=DARAB(HA((A1:A5)=(B1:B5);B1:B5))}
-
#21565
kerteszke3
újonc
kerteszke3
újonc
A következő lenne a kérdésem: hogyan lehet képlettel és segédoszlop nélkül összeszámolni két számsorban az egyezések számát, ha a számok sorrendje is számít? Tehát megnézi, hogy az első helyen álló számok egyeznek-e, utána azt, hogy a második helyen állók megegyeznek-e stb.
Legyen mondjuk a két tömb A1:A5 és B1 : B5. Ekkor például 1,2,3,4,5 és 0,1,2,3,4 esetén a képletnek 0 db egyezést kellene adnia, míg 1,2,3,4,5 és 1,2,5,6,3 esetén 2 darabot.
Előre is köszönöm!
-
#21561
Delila_1
veterán
lazlogogola
#21558
Delila_1
veterán
válasz
lazlogogola
#21558
üzenetére
Küldd el a két fájlt, privátban megadom a címet.
-
#21560
sutyimatyi
csendes tag
Delila_1
#21556
-
#21556
Delila_1
veterán
sutyimatyi
#21554
Delila_1
veterán
válasz
sutyimatyi
#21554
üzenetére
Nem látom át, miket számolsz. Van kezdési idő, de nincs végzés.
Mondd meg a főnöknek, hogy neki is könnyebb lefelé görgetni, mint oldalra. Mindig azt tesszük a sorokba, amiből több van. Itt a napokból max. 31 van, ráadásul naponként 3 adatot kell látni. Fordított elrendezésnél minden adat látszik az oszlopokban.
-
DS39
nagyúr
a gépemen nincs telepítve semmilyen nyomtató, de eddig mindig meg tudtam nézni a nyomtatási képet probléma nélkül (leginkább Word-ben volt erre szükségem). most úgy adódott hogy Excelben kellett volna, de ott hibaként jelzi hogy nincs nyomtató, így meg sem jeleníti a nyomtatási képet. be lehet állítani az Excelt hogy nyomtató nélkül is lássam az előnézeti képet?
-
#21553
Delila_1
veterán
lazlogogola
#21544
Delila_1
veterán
válasz
lazlogogola
#21544
üzenetére
Látatlanban arra gondolok, hogy a forrásban nem az A1-ben kezdődnek az adataid.
-
#21551
Delila_1
veterán
sutyimatyi
#21545
Delila_1
veterán
válasz
sutyimatyi
#21545
üzenetére
A helyedben elfordítanám 90°-kal a táblázatot.
-
gobe22
csendes tag
válasz
Delila_1
#21549
üzenetére
Igazából kicsit bonyolultabb a történet, mert 2 oszlop van (A és B) ahol A-ban végig van egy többezres lista, a B-ben pedig csak ha van hozzátartozó adatok vesszővel elválasztva. Ezért kérdeztem hogy meg lehet-e oldani hogy az üres sorokat is meghadja, ráadásul a B oszlopba kerülnek a rendezendő elemek.
De óriási segítség amit eddig is küldtél, mert vlookupolással így is meg tudom oldani belőle, csak van így még pár plusz lépés.
De ezer köszi az eddigieket!
-
Delila_1
veterán
válasz
gobe22
#21548
üzenetére
Az üres sorok törlésével kezd, nem szükséges a kijelölés, azonnal futtatható. Feltételezem, hogy a txt fájlból az adatokat az A1-től kezdve másolod be.
Sub VizszRend()
Dim usor As Long, sor As Long
Application.DisplayAlerts = False
'Üres sorok törlése
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'Szövegből oszlopok
usor = Application.CountA(Columns(1))
Range("A1:A" & usor).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), _
TrailingMinusNumbers:=True
'Rendezés soronként
For sor = 1 To usor
Rows(sor).Select
Selection.Sort Key1:=Range("A" & sor), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
'Összefűzés az N oszlopban
Range("N1:N" & usor).FormulaR1C1 = _
"=RC[-13]&"",""&RC[-12]&"",""&RC[-11]&"",""&RC[-10]&"",""&RC[-9]&"",""&RC[-8]&"",""&RC[-7]&"",""&RC[-6]&"",""&RC[-5]&"",""&RC[-4]&"",""&RC[-3]&"",""&RC[-2]"
'N oszlop irányított beillesztése az A-ba
Range("N:N").Copy
Range("A1").PasteSpecial xlPasteValues
'Segédoszlopok törlése
Range("B:N").ClearContents
'Többszörös vesszők törlése
sor = 0
Do While sor < 3
Cells.Replace What:=",,", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
sor = sor + 1
Loop
'Utolsó vessző törlése képlettel a H oszlopba
Range("H1:H" & usor).FormulaR1C1 = _
"=IF(RIGHT(RC[-7],1)="","",LEFT(RC[-7],LEN(RC[-7])-1),RC[-7])"
'H oszlop másolása az A-ba
Range("H:H").Copy
Range("A1").PasteSpecial xlPasteValues
Range("H:H").ClearContents 'H oszlop törlése
Application.DisplayAlerts = False
End Sub -
-
Delila_1
veterán
válasz
gobe22
#21543
üzenetére
Kicsit sok volt a buktató.
Kijelölöd a tartományt az A oszlopban, és indítod a makrót.Sub VizszRend()
Dim usor As Long, sor As Long
Application.DisplayAlerts = False
'Szövegből oszlopok
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), _
TrailingMinusNumbers:=True
'Rendezés soronként
usor = Application.CountA(Columns(1))
For sor = 1 To usor
Rows(sor).Select
Selection.Sort Key1:=Range("A" & sor), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
'Összefűzés az N oszlopban
Range("N1:N" & usor).FormulaR1C1 = _
"=RC[-13]&"",""&RC[-12]&"",""&RC[-11]&"",""&RC[-10]&"",""&RC[-9]&"",""&RC[-8]&"",""&RC[-7]&"",""&RC[-6]&"",""&RC[-5]&"",""&RC[-4]&"",""&RC[-3]&"",""&RC[-2]"
'N oszlop irányított beillesztése az A-ba
Range("N:N").Copy
Range("A1").PasteSpecial xlPasteValues
'Segédoszlopok törlése
Range("B:N").ClearContents
'Többszörös vesszők törlése
sor = 0
Do While sor < 3
Cells.Replace What:=",,", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
sor = sor + 1
Loop
'Utolsó vessző törlése képlettel a H oszlopba
Range("H1:H" & usor).FormulaR1C1 = _
"=IF(RIGHT(RC[-7],1)="","",LEFT(RC[-7],LEN(RC[-7])-1),RC[-7])"
'H oszlop másolása az A-ba
Range("H:H").Copy
Range("A1").PasteSpecial xlPasteValues
Range("H:H").ClearContents 'H oszlop törlése
Application.DisplayAlerts = False
End Sub -
#21541
Delila_1
veterán
lazlogogola
#21539
Delila_1
veterán
válasz
lazlogogola
#21539
üzenetére
Nem kell lista.
A betegek kr.xls-be írd be a képletet oda, ahova másolni akarsz.
=[2másolat.xls]krónikus!A1 ha a lap neve, ahonnan másolni akarsz, krónikus.
A képletet lemásolod a 300. sorig. -
#21537
Delila_1
veterán
lazlogogola
#21535
Delila_1
veterán
válasz
lazlogogola
#21535
üzenetére
Igen, a fájl nevét kiterjesztéssel, majd annak a lapnak a nevét, ahonnan másolsz.
A képletet lemásolva a többi sorban megkapod a 300 adatot. -
Delila_1
veterán
válasz
gobe22
#21530
üzenetére
Több lépésben lehet megoldani.
1. Kijelölöd a tartományt, a Szövegből oszlopok funkcióval oszlopokra bontod a szöveget, ahol határoló jelnek a vesszőt jelölöd be.
2. Újra kijelölöd a kibővült tartományt, Rendezés. Itt az Egyebek-nél a Balról jobbra funkciót választod.
3. Ezután újra összefűzöd az adatokat egy segédoszlopban, közöttük vesszővel: =A1 & "," & B1 & "," & C1 stb., ahány oszlopra bontotta szét a Szövegből oszlopok.
4. A segédoszlopot másolod, és az eredeti helyére illeszted be irányítottan, értékként.
5. Törlöd a feleslegessé vált oszlopokat, csak az A maradjon meg. -
#21532
Delila_1
veterán
lazlogogola
#21529
Delila_1
veterán
válasz
lazlogogola
#21529
üzenetére
=[InnenMásol.xlsx]InnenMásolLapneve!A1
Figyelj a kiterjesztésre!
-
pdw_ph
tag
válasz
lazlogogola
#21529
üzenetére
1. Eredeti listaban a A1:A300-at elnevezed (bal felso sarokban ahol irja h A1 stb. oda beirod pl. hogy "Lista".
2. Masik fileban a Data Validationnel a sourcet ugy adod meg hogy =File1.xls!ListaElvileg mennie kene, de nem probaltam ki.
-
#21529
lazlogogola
tag
lazlogogola
tag
Sziasztok!
Volna egy gondom. Lehet egyik excellből a másikban található listára hivatkozni?
1. excellben van egy névsor pl. A1-től A300-ig (itt valósznű folyamatosan bővül a névsor)
2.-ik excellben szeretném megjeleníteni egy legördülő listában ezeket a neveket.Egy excellen belül külön munkalapokon megtudom csinálni,de egy külső excellből nem.
Help!!!
-
#21528
Delila_1
veterán
sutyimatyi
#21525
Delila_1
veterán
válasz
sutyimatyi
#21525
üzenetére
Nincs jogosultságom a kép megtekintéséhez, de a lenti kép talán segít.
A B16, C16, és C18 cellák formátuma [ó]:pp.
-
Delila_1
veterán
válasz
PistiSan
#21526
üzenetére
A TRIM függvény levágja a hivatkozott cella elejéről és végéről a felesleges szóközöket.
=trim(B1)Az így kapott segédoszlop képleteket tartalmaz, ezért érdemes másolni, majd az eredeti helyére irányítottan, értékként beilleszteni.
Az eredmény szöveg típusú lesz, át kell alakítani számokká, így.
-
PistiSan
addikt
Sziasztok!
Excelben van egy importált táblázatom.A gond ott van, hogy az oszlopokban szereplő adatoknál, van ahol egy szóköz, van ahol 2 is van.
"B" oszlopban kilométeróra állások vannak, itt minden esetben 2db szóköz van az óraállás előtt.
Ezekkel a számadatokkal így nem tudok dolgozni.Valahogy meg kellene oldanom, hogy minden szóköz eltűnjön az oszlopokból.
Így sikerült is eltüntetni: =JOBB(B1;(HOSSZ(B1)-2))
Viszont ha tovább dolgozom az adatokkal, valamiért hibákat kapok, ha a számított érték helyett rendesen megadom a számot kézzel, akkor minden rendben van!Van valami ötletetek?
-
#21525
sutyimatyi
csendes tag
sutyimatyi
csendes tag
Sziasztok!
Köszönöm az előző segítségeket, kezd alakulni a táblázatom.
Mellékelten feltöltöttem egy képet arról, hogyan néz ki. A kérdésem az, hogyan lehet kiszámolni, hogy mennyi a várható túlóra. A sorok végén van egy összegzés, hogy mennyi a valós, és mennyi a tervezett óra, ami változhat. http://prohardver.hu/muvelet/tag_kep/karbantart.php?id=1158587
Van-e olyan függvény ami kiírja, hogy a valós sorban melyik cella az utolsó ami nem 0, és ha ez megvan akkor ehhez hozzáadja a tervezett sor összegét ettől a cellától. Remélem érthető voltam.
Köszönöm. -
lenkei83
tag
válasz
Delila_1
#21522
üzenetére
Megoldottam máshogy...
Minden lapon van fix cellám ami nem változik:
Sub AR_APSELECT()
Dim SheetArray() As Variant
Dim ws As Worksheet
Dim indx As Integer
For Each ws In ThisWorkbook.Sheets
If ws.Range("A6") = "Company" Then
ReDim Preserve SheetArray(indx)
SheetArray(indx) = ws.Index
indx = indx + 1
End If
Next
If indx > 0 Then
Sheets(SheetArray()).Select
End If
End Sub -
Delila_1
veterán
válasz
lenkei83
#21521
üzenetére
Próbálkoztam, de nem jön össze.
Sub lapok()
Dim lap%, szoveg$
For lap% = 1 To Worksheets.Count
If Right(Sheets(lap%).Name, 1) = "x" Then
szoveg$ = szoveg$ & Sheets(lap%).Name & """" & ","
End If
Next
szoveg$ = Left(szoveg$, Len(szoveg$) - 2)
Sheets(Array(szoveg$)).Select
End SubAz utolsó sornál túlcsordulást jelez. Talán kiindulásnak jó.
-
Delila_1
veterán
válasz
alfa20
#21517
üzenetére
Csak egy apró egyszerűsítés.
Sub keres()
Dim keres As Variant, cim
keres = InputBox("Keresendő szöveg, szám:", "Keresés")
cim= Cells.Find(What:=keres, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Address
MsgBox cim
End Sub -
alfa20
senior tag
válasz
Snoop-y
#21514
üzenetére
nem a legelegánsabb megoldás, de majd jön Delila_1 és majd megoldja profin
Sub keres()
Dim keres As Variant
keres = InputBox("Keresendő szöveg, szám:", "Keresés")
Cells.Find(What:=keres, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
MsgBox ActiveCell.Address
End Subés meg is jött
-
Delila_1
veterán
válasz
ildikol
#21513
üzenetére
Az első makrót a laphoz rendeld. Gondolom, akkor kell másolni a sort, ha egyrészt a P oszlopban egy bizonyos érték van, másrészt ha a sor ki van töltve a P-ig. Az eseménykezelő makró ezeket a feltételeket figyeli.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then 'P oszlopba írtál
Application.EnableEvents = False
Cells(Target.Row, "Q") = Time 'aktuális idő beírása
Application.EnableEvents = True
If Cells(Target.Row, "P") = "Ezt kell másolni" Then 'ezt a szöveget írd át
Masol Target.Row 'Masol makró meghívása, az aktuális sor értékének átadásával
Else
Application.CutCopyMode = False
End If
End If
End SubA második makró, ami a másolást végzi, modulba kerüljön. Azért van szükség 2 makróra, mert a laphoz rendelt csak a saját lapján tud intézkedni, de a változó(ka)t, mint most az aktuális sor számát, át tudja adni a másiknak, ami végrehajtja a másolást.
Nálam a Munka1 lapra írok, a Munka2-re másol a makró. Ezeket írd át a saját lapjaid nevére.Sub Masol(sor)
Dim usor As Long
usor = Application.CountA(Sheets("Munka2").Columns(1)) + 1
Sheets("Munka1").Rows(sor).Copy Sheets("Munka2").Cells(usor, 1)
Application.CutCopyMode = False
End Sub -
ildikol
újonc
Sziasztok, remélem tud valaki segíteni, excel makrot írnék, de elakadtam..
Van egy táblázatom, azt szeretném, ha tetszőleges soron ( a sorban tetszőleges cellán ) állva ugyanannak a sornak a Q oszlopába ugrana a kurzor, és oda betenne egy most függvényt, majd attól függően, hogy a P oszlopban milyen adat van ( legördülő listából választható, 3 féle adat lehet csak ), az egyik adat esetében egy köv munkalapra ugyanebben az xlsben másolja át az egész sort értékbeillesztéssel a következő üres sorba ( folyamatosan tölteném a táblát )
Remélem érthető voltam és tudtok segíteni, köszi előre is!
-
még egy dologra nem tudok rájönni. vannak dátumaim éééé.hh.nn óó:pp formátumban, amiket eltárolok változókban. az olyan dátumokat, ahol az óra 00:00 éppen, a változóba csak éééé.hh.nn formátumban teszi bele, elmarad az óra kiírása. ha nem 00:00 hanem 01:00, vagy bármi más, akkor a teljes formátumot elrakja a változóba. van ötletetek, hogy mi lehet a probléma?
-
-
Snoop-y
veterán
Sziasztok,
Az alabbiban kernem a segitsegeteket:
Stacked chartot szeretnek csinalni de kicsit bonyolultabban/reszletesebben mint amit alapban lehet vele.
Probaltam megcsinalni de nem nagyon jutok elobbre
Azt szeretnem latni eredmenykent amit az E oszlopba belerajzoltam a kis kezemmel.
Vagyis az oszlopnak 60 magasnak kellene lennie es tartalmaznia kellene melyik szinbol mennyi van.
A konnyebb erthetoseg kedveert mindegyikbol ugyanannyit raktam a tablaba ( szinenkent 20 )
Viszont arnyalat szerinti bontasban is szeretnem latni ugyanazon a charton. ( tehat a jobb oldali megoldas nekem nem jo mert az kulon oszlopot csinal )Nyilvan az adat elrendezes sem jo szoval szivesen varom az otleteket
-
Delila_1
veterán
válasz
zsambek
#21501
üzenetére
A jelszó első karaktere a jelentkező vezetéknevének első karaktere, második karaktere pedig utónevének első karaktere.
Vegyük, hogy a név az A2 cellában van. A Vkezdő képlete =BAL(A2;1),
az Ukezdőé =KÖZÉP(A2;SZÖVEG.KERES(" ";A2)+1;1)A Hanyadik a HOL.VAN függvénnyel kereshető ki – ne feledkezz meg az esetleges címsorról sem, ha a függvényed az A oszlopban keres, ebben az esetben le kell vonni belőle 1-et.
A többit biztosan kitalálod, azokhoz kellene a txt fájl.
-
-
bteebi
veterán
válasz
Delila_1
#21498
üzenetére
(Most már) nálam is
. Elsőre lefut hiba nélkül, de ha utána újra lefuttatom, akkor előjön ez a hiba. Második futás után - nem tudom miért - azt csinálja, hogy már eleve szétbontja oszlopokra a szöveget. Ezek szerint nem csak minden indítás után végzi el a tagolást, ami számomra meglepő. Ráadásul a munkafüzetben bárhová másolom az adatokat, akkor is szétbontja oszlopokra. Valószínűleg emiatt van a hibaüzenet is, bár nem világos, hogy miért.#21500: Köszönöm neked is! Ismertem amúgy ezt a funkciót, bár még talán csak egyszer-kétszer használtam korábban.
-
zsambek
aktív tag
Sziasztok,
Az a kérdésem lenne, hogy:
http://www.oktatas.hu/pub_bin/dload/kozoktatas/erettsegi/feladatok2010tavasz/e_info_10maj_fl.pdf
ebben az érettségiben úgy szeretném megcsinálni, a Jelszóbetűs részt, hogy oldalra felvettem egy segédtáblát, amibe beletöltöttem az angol ábécé betűit, és onnan szeretném indexeléssel kiválasztani a betűt.
Viszont a problémám az, hogy néha #ÉRTÉK-et ír, viszont nem tudom miért.
INDEX($M$2:$M$27;KEREK.LE(26*VÉL();0);0)
Ezt használom. Az M2 : M27-ben van az angol ábécés tábla.
Köszi a segítséget,
zsambek`
viszont a linkeden nem érek el sajnos semmit sem.
Új hozzászólás Aktív témák
Fferi50- iPhone topik
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER! lapcsalád
- Küszöbön az androidos PC-k
- Rezsicsökkentés, spórolás (fűtés, szigetelés, stb.)
- Xbox tulajok OFF topicja
- Fotók, videók mobillal
- Kínai és egyéb olcsó órák topikja
- Anime filmek és sorozatok
- Milyen billentyűzetet vegyek?
- További aktív témák...
- HIBÁTLAN iPhone 14 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3531, 93% Akkumulátor
- Sony MHC-V43D Aktív hangfal, party hangszóró
- GYÖNYÖRŰ iPhone 13 Pro Max 1TB Graphite - 1 ÉV GARANCIA - Kártyafüggetlen, MS3694
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest