Keresés: - Microsoft Excel topic - Mobilarena Hozzászólások

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

Mobilarena

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

#53694 Fferi50 Topikgazda the radish #53693

Új Válasz 2024-12-17 09:28:19 #53694
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #53693 üzenetére

Szia!
Be kell tenni még egy ciklust, pl. így:
Sub vba_concatenate()
Dim rng As Range
Dim i As String
Dim SourceRange As Range
Dim x As Integer
For x = 1 To 50
Set SourceRange = Range("I" & x & ":O" & x)
For Each rng In SourceRange
i = i & rng
'& ""
Next rng
Range("R" & x).Value = Trim(i)
Next
End Sub
De mutatok egy másik módszert is:
Sub concat()
Dim SourceRange As Range, rowrange As Range
Set SourceRange = Range("I1:O50")
For Each rowrange In SourceRange.Rows
Cells(rowrange.Row, "R").Value = Join(Application.Transpose(Application.Transpose(rowrange.Value)), ";")
Next
End Sub
Itt csak a forrástartományt és a cél oszlopot kell megadnod. A Join függvény második paramétere az elválasztó, ezt veheted "" (nullstring) értéknek is.
Üdv.
Ps. Azt, hogyan jelennek meg a sorok, a szerkesztőprogram kénye-kedve dönti el.
#52379 Fferi50 Topikgazda the radish #52377

Új Válasz 2024-03-29 09:59:39 #52379
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #52377 üzenetére

Szia!
Még annyit az előző makrókhoz, hogy a 4 jegyű irányítószám + vessző + egy szóköz miatt az első makróban Mid(cl.value,7) kell, a második makróban pedig Replace(A1,1,6,"""").
Sajnos nem számoltam utána, közben jutott eszembe.
Üdv.
#52378 Fferi50 Topikgazda the radish #52377

Új Válasz 2024-03-29 09:14:49 #52378
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #52377 üzenetére

Szia!
Nincs mese, akkor bonyolultabb egy nagyon picit:
Sub cserelo1()
Dim cl As Range
For Each cl In Range("A1:A30000")
cl.Value = Mid(cl.Value, 5)
Next
End Sub
Sajnos végig kell menni cellánként.
Vagy segédoszlop kell hozzá (itt a B oszlop):
Sub cserelo2()
With Range("B1:B30000")
.Formula = "= Replace(A1, 1, 5, """")"
.Offset(0, -1).Value = .Value
.Clear
End With
'B helyére írd a saját segédoszlopod. A makró után a segédoszlop üres lesz.
End Sub
Üdv.
#52377 the radish senior tag the radish #52376

Új Válasz 2024-03-29 08:30:13 #52377
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz the radish #52376 üzenetére

Range("A1:A30000") = Left(Range("A1"), 5)
Eredmény: 3300 (az "Eger" tűnt el)
Range("A1:A30000").Replace What:="????,?", Replacement:=""
Ez valóban jó lenne, de írtad is bukót, van, ahol található még vessző és onnan is levág -4 karaktert
#52374 Fferi50 Topikgazda the radish #52372

Új Válasz 2024-03-28 12:02:14 #52374
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #52372 üzenetére

Szia!
Próbáld így:
Range("A1:A30000").Replace What:="?????", Replacement:=""
Üdv.
#52373 Delila_1 veterán the radish #52372

Új Válasz 2024-03-28 10:17:34 #52373
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #52372 üzenetére

Range("A1:A30000") = Left(Range("A1"), 5)
#50447 spe88 senior tag the radish #50000

Új Válasz 2023-02-09 14:33:35 #50447
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

spe88

senior tag

válasz the radish #50000 üzenetére

Sziasztok!
Tömbképletet akarok használni, de a HA fv.-nél elakad. Nem tudja értelmezni, hogy csak az üresekre szűrjön. Ezt, hogy lehet kikerülni?
Köszönöm
HAHIBA(INDEX($AQ$56:$AQ$86;KICSI(HA($AQ$56:$AQ$86<>"");SOR($AQ$56:$AQ$86)-SOR(AQ55);"");s56));"")
#50029 Fferi50 Topikgazda the radish #50028

Új Válasz 2022-11-25 22:10:30 #50029
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #50028 üzenetére

Szia!
Nos nálam ebben a verzióban sem csinálja így a 365.
Üdv.
#50027 Fferi50 Topikgazda the radish #50026

Új Válasz 2022-11-25 14:42:50 #50027
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #50026 üzenetére

Szia!
Tudom, nem vígasztal, de nálam nem jön elő ez a probléma 365-ben. Talán valami más beállítás - ami az egérmutató formáját vezérli - a Windows-ban lehet a ludas, mert az Excel beállításnál nem találtam ilyet.
Jól gondolom, hogy adatérvényesítéssel áll elő a lista?
Üdv.
#50020 Fferi50 Topikgazda the radish #50019

Új Válasz 2022-11-24 09:21:40 #50020
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #50019 üzenetére

Szia!
Ez sajnos egy erős BUG a legújabb Excel verziókban. Nem tudom, szóvá tette-e valaki a MS oldalán. Valahány fájlt megnyit, mind ottmarad a VBA oldalon, de egyébként ha "megkérdezed" hány munkafüzet van nyitva, akkor 0 a válasz. Viszont úgy tűnik, a memóriát azért foglalja, sőt el is tud indulni a benne levő makró - csak épp hiba vagy összeomlás a vége. Csak a bezárás és újranyitás segít sajnos.
Jelenteni kell a MS felé.
Üdv.
#50001 Fferi50 Topikgazda the radish #50000

Új Válasz 2022-11-23 11:17:40 #50001
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #50000 üzenetére

Szia!
Képletet összefüggő tartományra meg lehet adni egy lépésben:
Pl. Range("O1:O" & usor).FormulaLocal="=HAHIBA(INDEX(C$1:C$20000;$N1);"""")
Érték másolás önmagára akkor kell, ha nem szeretnéd a képletet megtartani.
Üdv.
#49996 Fferi50 Topikgazda the radish #49995

Új Válasz 2022-11-18 21:31:19 #49996
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #49995 üzenetére

Szia!
A létrehozás dátumát a rendszer hozza létre, ahhoz nem lehet "normálisan" hozzányúlni szerintem.
Üdv.
#49995 the radish senior tag the radish #49994

Új Válasz 2022-11-18 21:07:54 #49995
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz the radish #49994 üzenetére

Az megint kimaradt az infóból, hogy az excel hozza létre a txt fájlt. (Hátha lényeges)
#49993 Delila_1 veterán the radish #49992

Új Válasz 2022-11-18 19:34:08 #49993
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #49992 üzenetére

Set adatfile = FSO.GetFile("útvonal\fájlnév kiterjesztéssel")
A létrehozás dátumát az adatfile.DateCreated adja meg.
#49991 Fferi50 Topikgazda the radish #49990

Új Válasz 2022-11-18 17:47:29 #49991
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #49990 üzenetére

Szia!
Mire gondolsz?
A fájl nevébe beleteheted szöveges formában a létrehozás dátumát és időpontját is.
Üdv.
#49989 Delila_1 veterán the radish #49988

Új Válasz 2022-11-18 13:49:59 #49989
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #49988 üzenetére

Szívesen.
#49987 Delila_1 veterán the radish #49986

Új Válasz 2022-11-18 13:46:19 #49987
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #49986 üzenetére

Valamit elronthattál, nálam terv szerint működik.
Nem hívja meg esetleg a Makro1 a Makro2-t?
#49985 Delila_1 veterán the radish #49984

Új Válasz 2022-11-18 13:25:04 #49985
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #49984 üzenetére

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$1" Then Call Makro1 If Target.Address = "$A$2" Then Call Makro2 Application.EnableEvents = True End Sub
#49942 the radish senior tag the radish #49940

Új Válasz 2022-11-15 14:21:54 #49942
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz the radish #49940 üzenetére

Bocsánat, megoldva, pontosabban csak elfelejtettem a megoldást.
#49937 Fferi50 Topikgazda the radish #49936

Új Válasz 2022-11-15 12:37:53 #49937
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #49936 üzenetére

Szia!
Állitsd a számításokat manuálisra:
Application.Calculation=xlCalculationManual
A visszaállítás:
Application.Calculation=xlCalculationAutomatic
Viszont ha a makró a számított értékeket is figyelembe veszi valahol, akkor hamis lehet a végeredmény.
#49884 lappy őstag the radish #49882

Új Válasz 2022-11-09 09:53:08 #49884
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

lappy

őstag

válasz the radish #49882 üzenetére

ismétlődések eltávolítása
#49853 Fferi50 Topikgazda the radish #49852

Új Válasz 2022-11-06 11:21:21 #49853
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #49852 üzenetére

Szia!
Talán a legegyszerűbb:
usor=Cells(Rows.Count,1).End(xlup).Row With Range("B1:B" & usor) .Formula="=Timevalue(A1)" .Value=.Value ' .NumberFormat="hh:mm:ss" ' ha formázottan szeretnéd látni akkor vedd ki a sor elejéről az aposztrofot End With
Üdv.
#49792 the radish senior tag the radish #49771

Új Válasz 2022-10-22 19:02:37 #49792
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz the radish #49771 üzenetére

Sziasztok,
Közben a "replace" segítségével sikerül egy makrót összehozni, viszont szeretném valahogy az esetenként előforduló irányítószámokat is likvidálni. Ehhez az összes 4 jegyű számot fel kéne deríteni, de nem jövök rá, hogy ezt milyen módon kéne kéne megadnom a makróban.
Javaslatotokat előre is köszönöm!
#49513 Fire/SOUL/CD félisten the radish #49506

Új Válasz 2022-09-01 13:29:51 #49513
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz the radish #49506 üzenetére
#48581 Fferi50 Topikgazda the radish #48580

Új Válasz 2022-02-22 10:47:39 #48581
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #48580 üzenetére

Szia!
Ha a nyitókészlet is minden nap rögzítésre kerül az előző napi zárónak megfelelően - a mintából legalábbis így látszik - , feltételezve, hogy a forrás sorba van rendezve, akkor INDEX - HOL.VAN függvénnyel meg lehet oldani. Kell egy segédoszlop, amibe összefűzzük a termék - dátum oszlopot.
A keresésnél erre az összefűzött értékre keresünk rá, a következő napi dátum értékből kivonjuk a tárgynapi értéket.
Változás C2 cella képlete, ami lefelé húzható:
=INDEX(Forrás!D1 : Dx;HOL.VAN(A2&B3;Összefűzött oszlop;0))-INDEX(Forrás!D1 : Dx;HOL.VAN(A2&B2;Összefűzött oszlop;0))
Arra figyelni kell, hogy az összefűzés után a keresendő érték és az összefűzött oszlop is szöveg legyen.
Remélem, valami hasonlóra gondoltál.
Üdv.
#46661 Pakliman tag the radish #46659

Új Válasz 2021-05-12 10:28:15 #46661
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pakliman

tag

válasz the radish #46659 üzenetére

Szia!
Egy kis módosítás kell:
Dim wb As Workbook
If sFile <> "" Then Set wb = Workbooks.Open(sFile) ' Open the Excel file. '... 'Másolás a wb.Worksheets("munkalapnév").cells(sor,oszlop).... 'Végül:
wb.Close SaveChanges:=False
End If
#46626 Delila_1 veterán the radish #46623

Új Válasz 2021-05-09 06:40:56 #46626
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #46623 üzenetére

Adj feltételes formázást az M2: P... tartományra.
A formázás képlete: =DARABTELI($A:$A;$M2)=0
Mikor látod a megadott formátumot, indíthatod a másolós makrót.
#46622 Delila_1 veterán the radish #46621

Új Válasz 2021-05-08 17:06:19 #46622
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #46621 üzenetére

Szívesen.
#46620 Delila_1 veterán the radish #46619

Új Válasz 2021-05-08 16:25:55 #46620
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #46619 üzenetére

Ímé:
Sub SorMasolas()
Dim ide As Long, sor As Long

ide = Range("A" & Rows.Count).End(xlUp).Row + 1
sor = 2
Do While Cells(sor, "M") <> ""
If Application.WorksheetFunction.CountIf(Columns(2), Cells(sor, "N")) = 0 Then
Range("M" & sor & ":P" & sor).Copy Range("A" & ide)
ide = ide + 1
End If
sor = sor + 1
Loop
End Sub
#46607 Fferi50 Topikgazda the radish #46606

Új Válasz 2021-05-07 16:56:28 #46607
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #46606 üzenetére

Szia!
Szerintem ezt az Excel saját kénye-kedvére jeleníti meg....
Üdv.
#46605 Fferi50 Topikgazda the radish #46604

Új Válasz 2021-05-07 16:10:48 #46605
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #46604 üzenetére

Szia!
Worksheets(1).ShowDataForm
Üdv.
#45198 Fferi50 Topikgazda the radish #45196

Új Válasz 2020-10-31 11:10:58 #45198
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #45196 üzenetére

Szia!
A konstansnak nem adhatsz változó tartalmat pl. cellaértéket sem, a deklaráláskor pontosan meg kell adni az értékét.
Ha változó értékeket szeretnél, akkor valódi változót kell használnod és pl. a Workbook_Open eseményben beolvasni az értékét - vagy az adott makróban, mielőtt használni kezdenéd.
Üdv.
#45195 zsolti_20 senior tag the radish #45193

Új Válasz 2020-10-31 09:41:14 #45195
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

zsolti_20

senior tag

válasz the radish #45193 üzenetére

Kicsit utana olvastam, probaltam tesztelni, de azt irjak hogy ilyen formaban megoldani nem lehet. Erre egy valtozo kell csinalnod.
De az en tudasom is meg all itt. Majd a tobbiek kisegitenek.
#45194 zsolti_20 senior tag the radish #45193

Új Válasz 2020-10-31 09:22:17 #45194
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

zsolti_20

senior tag

válasz the radish #45193 üzenetére

Public Const burnKey = Worksheets("KEY").Cells(1).Value
#45191 zsolti_20 senior tag the radish #45189

Új Válasz 2020-10-31 09:02:39 #45191
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

zsolti_20

senior tag

válasz the radish #45189 üzenetére

Szia,
Esetleg probald meg ezt:
Sub lol()
var1 = Worksheets("Sheet2").Cells(1).Value
MsgBox var1
End Sub
#45184 Fferi50 Topikgazda the radish #45183

Új Válasz 2020-10-29 11:00:42 #45184
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #45183 üzenetére

Szia!
Mi van az eseménykezeléssel? Le van tiltva?
Megmutatnád azt a kódrészletet, amelynél ez bekövetkezik?
Üdv.
#45176 Fire/SOUL/CD félisten the radish #45173

Új Válasz 2020-10-28 10:51:09 #45176
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz the radish #45173 üzenetére

Private Sub CommandButton1_Click() Dim MyFilename As String Dim MyWorkBook As Workbook 'Excel fájl útvonala MyFilename = "D:\gyumolcs.xls" 'Megnyitjuk Set MyWorkBook = Workbooks.Open(MyFilename) 'A megnyitott munkafüzet "Munka1" nevü munkalapjáról 'beolvassuk az "A1" cella tartalmát és 'nagybetű-helyesen értelmezzük. 'Így mindegy, hogy a cellában hogy szerepel, "Alma" vagy "ALMA" vagy "alma" stb stb. Select Case UCase(MyWorkBook.Sheets("Munka1").Range("A1")) Case "ALMA" Call alma Case "KÖRTE" Call korte Case "SZILVA" Call szilva 'ha bármi más szerepel a cellában vagy üres, 'akkor figyelmeztető ablak, majd bezárjuk a munkafüzetet Case Else MsgBox ("A(z) " + MyFilename + " munkafüzet be lesz zárva.") MyWorkBook.Close End Select Set MyWorkBook = Nothing End Sub Private Sub alma() MsgBox ("Alma makró") End Sub Private Sub korte() MsgBox ("Körte makró") End Sub Private Sub szilva() MsgBox ("Szilva makró") End Sub
#41124 Fferi50 Topikgazda the radish #41120

Új Válasz 2019-05-22 12:49:29 #41124
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #41120 üzenetére

Szia!
Ha lehet makrót használnod, akkor a következő felhasználói függvény segít:
Function jaras(cl As Range) As String jaras = Left(cl.Value, InStrRev(Left(cl.Value, InStr(cl.Value, "járás")), ",") - 1) End Function
Ezt egy modullapra kell bevinned. Használata mint az Excel függvényeké, pl. =jaras(A1)
Ha mind megvan, akkor kijelölöd - másolás - irányított beillesztés - értéket. Így eltűnnek a képletek.
Utána akár ki is törölheted a modullapot.
Üdv.
#41123 Delila_1 veterán the radish #41122

Új Válasz 2019-05-22 11:20:15 #41123
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #41122 üzenetére

Szívesen.
#41121 Delila_1 veterán the radish #41120

Új Válasz 2019-05-22 09:49:40 #41121
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #41120 üzenetére

Kijelölöd az A oszlopot, az Adatok | Szövegből oszlopok menüponttal szétválasztod az adatokat, ahol a határoló jel legyen vessző. Ezután egy üres oszlopban összefűzöd a szükséges cellákat.
=A2 & ", " & B1 & ", " & C1
Másolod a képletet tartalmazó oszlopot, majd irányítottan, értékként beilleszted az egy új oszlopba.
Ezzel "csak" az a baj, hogy nem következetesen vannak az adatok az egyes sorokban, nem egységesen mindenhol a 4. adat a járás. Kiss Jenőnél a 2. helyen van. Ezeket egyenként kell javítani. Ha nem lennének ezek az anomáliák, az irányított beillesztés történhetne azonnal az eredeti adatok helyére.
#41119 Delila_1 veterán the radish #41117

Új Válasz 2019-05-22 08:25:35 #41119
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #41117 üzenetére

A B1 cella képlete
=BAL(A1;SZÖVEG.KERES("járás";A1)+4)
#41096 the radish senior tag the radish #41095

Új Válasz 2019-05-18 09:37:50 #41096
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz the radish #41095 üzenetére

Sikerült megoldani:
Sub sbDelete_Rows_IF_Cell_Contains_String_Text_Value() Dim lRow As Long Dim iCntr As Long lRow = 100000 For iCntr = lRow To 1 Step -1 If Cells(iCntr, 1).Value = "SZUM" Then Rows(iCntr).Delete End If Next End Sub
#37728 lappy őstag the radish #37725

Új Válasz 2018-04-05 16:58:20 #37728
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

lappy

őstag

válasz the radish #37725 üzenetére

itt is hasonló a probléma
#37726 total90 veterán the radish #37725

Új Válasz 2018-04-05 13:42:38 #37726
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

total90

veterán

válasz the radish #37725 üzenetére

Szia,
szerintem ilyen nem lehetséges
#37306 Fferi50 Topikgazda the radish #37304

Új Válasz 2018-02-09 12:06:09 #37306
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #37304 üzenetére

Szia!
Fontos apróságok:
valtozo$=Range ("C1")
A C1 cella értékét teszi a valtozo$ nevű változóba!
Ha ez nem felel meg a Range meghatározás szabályainak, akkor hibát okoz.
Ha a C1 cella tartalmazza a kijelölés végének a címét, akkor Delila megoldása jó.
Ha magát a cellát, mint objektumot szeretnéd a változóba tenni, akkor
set valtoz=Range("C1")
Ebben az esetben a helyes kijelölés:
Range("A1",valtoz).Select
Üdv.
#37305 Delila_1 veterán the radish #37304

Új Válasz 2018-02-09 11:19:48 #37305
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #37304 üzenetére

Nincs mit.
#37303 Delila_1 veterán the radish #37302

Új Válasz 2018-02-09 10:36:50 #37303
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #37302 üzenetére

Range("A1:" & Range("C1").value).Select
#36859 föccer nagyúr the radish #36857

Új Válasz 2017-12-27 18:07:27 #36859
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz the radish #36857 üzenetére

SZUMHATÖBB kell neked. Több kritériumot is meg lehet neki adni.
üdv, föccer
#36630 Fferi50 Topikgazda the radish #36629

Új Válasz 2017-11-24 00:07:26 #36630
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #36629 üzenetére

Szia!
Arra van lehetőség, hogy a futásidejű hibák ne okozzanak leállást, illetve korrigálhatók legyenek. Nézz utána az On Error Goto ill. az On Error Resume utasításoknak a Help-ben.
Üdv.
#35170 Pakliman tag the radish #35165

Új Válasz 2017-05-12 09:45:51 #35170
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Pakliman

tag

válasz the radish #35165 üzenetére

Szia!
Ezt "kényszerből" írtam, mert sokszor volt/van szükségem darabolásra.
Használható cellában és makróban egyaránt.
Public Function Darabolt(darabolandó, rész As Long, Optional elválasztó As String = " ", Optional elválasztó_egyben_használandó As Boolean = True, Optional trim As Boolean = True) As String Dim delim Dim s Dim i As Long s = IIf(trim, Application.Trim(darabolandó), darabolandó) If elválasztó_egyben_használandó Then delim = elválasztó Else delim = Mid(elválasztó, 1, 1) For i = 2 To Len(elválasztó) s = Replace(s, Mid(elválasztó, i, 1), delim) Next i End If On Error GoTo Hiba Darabolt = Split(s, delim)(rész - 1) Exit Function Hiba: Darabolt = "" End Function
Használata: darabolandó= "dara bolandó napok" rész= lásd eredményeknél elválasztó= " n" 'ha nem adod meg, akkor 1 db szóköz ' elválasztó_egyben_használandó= ha nem adod meg, akkor IGAZ ' trim= ha nem adod meg, akkor IGAZ elválasztó_egyben_használandó= HAMIS (=a szóköz is és az n is elválasztóként használandó) trim= HAMIS (=feldolgozás előtt a dupla/tripla stb szóközöket NEM cseréli 1 db szóközre) eredmény rész=1 --> "dara" eredmény rész=2 --> "" eredmény rész=3 --> "" eredmény rész=4 --> "" eredmény rész=5 --> "" eredmény rész=6 --> "bola" eredmény rész=7 --> "dó" eredmény rész=8 --> "" eredmény rész=8 --> "apok" '------------------------------------------------- darabolandó= "dara bolandó napok" elválasztó= " n" elválasztó_egyben_használandó= IGAZ (=KIZÁRÓLAG a " n" sztring az elválasztó!!) trim= IGAZ (=feldolgozás előtt a dupla/tripla stb szóközöket kicseréli 1 db szóközre) eredmény rész=1 --> "dara bolandó" eredmény rész=2 --> "apok"
#35168 Fferi50 Topikgazda the radish #35167

Új Válasz 2017-05-12 07:32:39 #35168
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #35167 üzenetére

Szia!
A Chr(34) jelenti az idézőjel karaktert. Ilyen esetekben egyszerűbb ezen a módon használni (néha nem is lehet másként).
Egyébként duplázni kell az idézőjeleket, hogy egy szövegben (stringben) idézőjelként maradjon benn és ne szöveghatárolóként.
Ha azt szeretnéd, hogy az idézőjel is benne maradjon a szövegben, akkor a +1 részt ki kell törölni.
Üdv.
#35166 Fferi50 Topikgazda the radish #35165

Új Válasz 2017-05-12 07:22:47 #35166
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #35165 üzenetére

Szia!
Dim cl as range For Each cl In Range("A1:A250").Cells: cl.Value = Mid(cl.Value, InStr(cl.Value, Chr(34)) + 1): Next
Üdv.
#35162 lappy őstag the radish #35160

Új Válasz 2017-05-11 17:00:49 #35162
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

lappy

őstag

válasz the radish #35160 üzenetére

Sub RemoveAllButLastWord() 'Updateby20140612 Dim Rng As Range Dim WorkRng As Range Dim xChar As String On Error Resume Next Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) xChar = Application.InputBox("String", xTitleId, "", Type:=2) For Each Rng In WorkRng xValue = Rng.Value Rng.Value = VBA.Right(xValue, VBA.Len(xValue) - VBA.InStrRev(xValue, xChar)) Next End Sub
pl
#35161 Fferi50 Topikgazda the radish #35160

Új Válasz 2017-05-11 16:59:42 #35161
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #35160 üzenetére

Szia!
Makróval
Range("A1:A250").Replace What:="alma",Replacement:="",lookAt:=xlPart Ugyanez az idézőjelre: Range("A1:A250").Replace What:=Chr(34),Replacement:="", lookAt:=xlPart
De a Keresés - Csere párbeszédpanelben ugyanezt meg tudod csinálni, ha kijelölöd a tartományt.
Arra kell figyelni, hogy ez a párbeszédpanel megőrzi az előző keresési beállításokat! (vagyis azt, hogy miben keressen, egész cellát nézzen-e stb.)
Üdv.
#33743 Fferi50 Topikgazda the radish #33736

Új Válasz 2017-01-18 21:50:17 #33743
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #33736 üzenetére

Szia!
Sub masolos() Dim sor As Integer For sor = 1 To 160 Range("A" & sor & ":B" & sor).Copy Destination:=Range("x" & sor) Application.Wait Now + TimeSerial(0, 0, 3) DoEvents Next End Sub
A Range("x" & sor) helyére írd a célcella címét.
Üdv.
#33738 lappy őstag the radish #33736

Új Válasz 2017-01-18 21:12:48 #33738
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

lappy

őstag

válasz the radish #33736 üzenetére

WaitTime = Now() + TimeValue("00:01:00") While Now() < WaitTime DoEvents Wend
a késleltető tag
#31214 Fferi50 Topikgazda the radish #31213

Új Válasz 2016-04-04 21:37:38 #31214
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #31213 üzenetére

Szia!
Beleklikkre nem találtam megoldást, de egérmutató rávitele esetére az alábbi kis makró - amit a Textbox1 megfelelő eseménykezelőjébe írtam, aktiválja a Textbox1 -et és "bekékíti" a teljes szöveget - azaz gépelés elkezdésekor törlődik a benne levő szöveg.
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Me.ActiveControl.Name <> "TextBox1" Then TextBox1.SetFocus Application.SendKeys "+({TAB})" Application.SendKeys "{TAB}" 'Textbox1.Text="" 'is kitörli a szöveget, ha fölé viszed az egérmutatót, akkor nem kell az előző két sor (nyilván véletlen kitörlés ellen kell még egy rákérdezés ebben az esetben msgbox használatával) End If End Sub
Üdv.
#31189 föccer nagyúr the radish #31188

Új Válasz 2016-04-02 13:12:49 #31189
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

föccer

nagyúr

válasz the radish #31188 üzenetére

Cellaformátumban válaszd ki a megfelelő formátumot.
üdv, föccer
#30898 Fferi50 Topikgazda the radish #30897

Új Válasz 2016-03-07 09:49:15 #30898
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #30897 üzenetére

Szia!
Este már nem jutottam hozzá a géphez/internethez.
Nem szeretnélek elkeseríteni, de nálam szépen lefut és nyomtat - sima doksit és körlevelet is, ha a körlevelesbe beleteszem a megfelelő sort. A hozzászólásodból másoltam ki direkt a makrót és egyáltalán nem panaszkodott (persze fájlneveket átcseréltem...).
Nálam 2010-es Office van fent, nem tudom Nálad mi fut.
Nézd meg légy szíves az immediate ablakban a wdPrintFromTo értékét. Ha nem 3, akkor a változó helyett lsz. írd be a 3-as számot, idézőjelek nélkül.
Korábbi verziókban lehet, hogy nem így kell megadni, akkor viszont a word help tud segíteni. Ha mégsem megy/nem találod a megoldást, menjünk át privibe.
Üdv.
#30896 Fferi50 Topikgazda the radish #30895

Új Válasz 2016-03-06 20:52:07 #30896
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #30895 üzenetére

Szia!
Milyen hibaüzenettel akad el a makró?
Azt gondolom, hogy az objword.objdoc hivatkozás lesz az igazi, az is elképzelhető, hogy az activewindow kihagyható/kihagyandó belőle.
Üdv.
#30894 Fferi50 Topikgazda the radish #30889

Új Válasz 2016-03-06 18:14:51 #30894
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #30889 üzenetére

Szia!
Szerintem az a gond, hogy nem a word objektumra hivatkozol.
Próbáld így lsz.
objDoc.ActiveWindow.PrintOut _ Range:=wdPrintFromTo, From:="1", To:="3"
Mivel két alkalmazás több különböző objektuma van benn, ezért pontosan meg kell mondani, melyiknek szánod a parancsot.
Üdv.
#30885 Fferi50 Topikgazda the radish #30876

Új Válasz 2016-03-06 17:20:07 #30885
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #30876 üzenetére

Szia!
Van egy olyan paramétere a PrintOut- ami megmondja, hogy mit nyomtasson ki, ez a Range.
Pl: ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"
This example prints the first three pages of the document in the active window.
Üdv.
#30875 bteebi veterán the radish #30873

Új Válasz 2016-03-06 15:02:13 #30875
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

bteebi

veterán

válasz the radish #30873 üzenetére

Hát ez baromi érdekes. Idézőjelek nélkül el se indul, idézőjellel pedig nem azt csinálja, amit kellene... Excellel pedig biztos, hogy idézőjelek nélkül megy (ki is próbáltam), sőt változókkal is működik.
#30871 bteebi veterán the radish #30868

Új Válasz 2016-03-06 14:41:17 #30871
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

bteebi

veterán

válasz the radish #30868 üzenetére

Idézőjelek nélkül szerintem működnie kellene.
From:=3, To:=3, Copies:=1
Valószínűleg korábban is csak annyi volt a baja. A Copies meg minden bizonnyal felesleges, mert az 1 lehet a default.
#30872: "Hol a söröm?"
A postán .
#30866 YAN0U csendes tag the radish #30865

Új Válasz 2016-03-06 14:09:42 #30866
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

YAN0U

csendes tag

válasz the radish #30865 üzenetére

From, To esetleg?
From:=3, To:=3, Copies:=1
#30863 Fferi50 Topikgazda the radish #30858

Új Válasz 2016-03-06 12:08:47 #30863
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #30858 üzenetére

Szia!
Örülök, hogy sikerült adaptálnod. Pár éve egy másik fórumon volt egy kis vitánk, hogyan lehet excel - word körlevél együttműködést "optimalizálni". A VBA help alapján - no meg a Word makrórögzítés segítségével - akkor sikerült összeraknom ezt a viszonylag egyszerű megoldást. Az akkor munkafüzetet már nem találtam, de a helpek a "helyükön voltak" és az "emlékfoszlányok" is segítettek.
Remélem, nem lesz a későbbiekben sem probléma.
Üdv.
#30861 Delila_1 veterán the radish #30860

Új Válasz 2016-03-06 07:12:07 #30861
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #30860 üzenetére

Private Sub TextBox1_AfterUpdate() Application.EnableEvents = False If Len(TextBox1) <> 11 Or Not IsNumeric(TextBox1) Then MsgBox "Hibás adószám", vbOKOnly + vbInformation Exit Sub Else TextBox1 = Format(TextBox1,"00000000-0-00") End If Application.EnableEvents = True End Sub
#30841 Fferi50 Topikgazda the radish #30821

Új Válasz 2016-03-03 22:14:39 #30841
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #30821 üzenetére

Szia!
Az alábbi makrót idomítsd a saját fájljaidhoz. A makró maga egy excel fájlban van.
Sub wordkorlevel() Dim wd As Object Dim wddoc As Object Set wd = CreateObject("Word.Application") ' megnyitja a word alkalmazást wd.Visible = True 'láthatóvá teszi Set wddoc = wd.documents.Open("C:\Users\fferi\Documents\Körlevél.docx") 'megnyitja a körlevelet wddoc.mailmerge.opendatasource Name:="C:\Users\fferi\Documents\Korleveles1.xlsx", linktosource:=True, sqlstatement:="SELECT * FROM `Munka1$`" ' összekapcsolja a forrással wddoc.Activate ' csak azért, hogy lásd wddoc.mailmerge.ViewMailMergeFieldCodes = False ' az adatokat mutatja és nem a kódokat Stop wddoc.Close False 'mentés nélkül bezárja wd.Quit ' kilép a word alkalmazásból End Sub
A kód egy excel munkafüzet normál moduljában van (de lehet a körlevél forrás excel fájljában is, csak akkor menteni xlsm formában kell!!
Ezen kívül a VBA Tools References menüjében be kell pipálni a megfelelő Word verzió könyvtárát!
Üdv.
#29648 Fferi50 Topikgazda the radish #29645

Új Válasz 2015-11-26 15:08:18 #29648
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #29645 üzenetére

Szia!
=jobb("0" & Abs(A1);3)
Üdv.
#29646 Delila_1 veterán the radish #29645

Új Válasz 2015-11-26 14:49:22 #29646
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #29645 üzenetére

=ha(a1<0;"-" & jobb("0" & a1;3);jobb("0" & a1;3))
#29644 Delila_1 veterán the radish #29643

Új Válasz 2015-11-26 14:09:32 #29644
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #29643 üzenetére

Nincs mit.
#29641 Delila_1 veterán the radish #29640

Új Válasz 2015-11-26 13:30:32 #29641
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #29640 üzenetére

=jobb("0" & a1;3)
#28806 the radish senior tag the radish #28805

Új Válasz 2015-09-28 19:35:21 #28806
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz the radish #28805 üzenetére

Jaj, bocs. Működik. Az indítással volt probléma, nem olvastam az utolsó hozzászólásodat.
Nagyon köszönöm!
#28803 Fferi50 Topikgazda the radish #28799

Új Válasz 2015-09-28 16:39:45 #28803
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #28799 üzenetére

Szia!
Mégis az Application.Wait lett a nyerő.
A UserForm1 tartalmaz egy Label1 cimkét - itt fut az idő visszafelé, Commandbutton1 parancsgomb a művelet végrehajtására, Commandbutton2 parancsgomb a megszakításra.
A UserForm1 kódlapja így néz ki:
Option Explicit Dim xx As Integer Sub mutato() UserForm1.Show False For xx = 11 To 0 Step -1 UserForm1.Label1.Caption = xx Application.Wait Now + TimeSerial(0, 0, 1) DoEvents 'figyeli, hogy volt-e gombnyomás, ha igen, végrehajtja Next If xx = -1 Then UserForm1.CommandButton1_Click ' ha lefutott az idő, végrehajtjuk a műveletet, ha már megvolt, nem történt semmi End Sub Public Sub CommandButton1_Click() MsgBox "Kilépek" xx = -2 Me.Hide End Sub Private Sub CommandButton2_Click() MsgBox "Cancel" xx = -2 Me.Hide End Sub Private Sub UserForm_Terminate() xx = -2 End Sub
Ha kérdésed lenne, kérlek írj!
Üdv.
#28800 Fferi50 Topikgazda the radish #28799

Új Válasz 2015-09-28 14:54:56 #28800
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #28799 üzenetére

Szia!
A userformnak van egy modal paramétere, ami
vagy 1 (ha nem adod meg, ez a default), ebben az esetben addig nem megy tovább a program, amíg a form látszik
vagy 0 ill. False lehet, ezt mindig meg kell adni. Ilyenkor a form nem állítja meg a program futását. Ezért is írtam, hogy a False paramétert is állítsd be a show meghívásakor.
Az application.wait valóban megállítja a program futását, bocs erre nem voltam figyelemmel, más módon kell a 10 mp - visszaszámlálást megoldani.
Még agyalok rajta egy kicsit, lehet az időzítő funkciót kell használni.
Üdv.
#28798 Fferi50 Topikgazda the radish #28797

Új Válasz 2015-09-28 11:02:52 #28798
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #28797 üzenetére

Szia!
Szerintem ez saját alkotású UserForm-mal oldható meg. Egy cimke az üzenettel, két parancsgomb + egy cimke a timernek.
Amikor megmutatod a formot, beállítod az üzenetet és a timert - megjelenítés userform.show false paraméterrel, hogy a program fusson tovább, de a programba beteszed a 10 mp várakozási időt is (Application.Wait) a megjelenítő sor után - ha lejárt az idő, végrehajtod a műveletet és eltünteted a formot.
Ha Mégse gombot nyomnak, akkor is el kell tüntetned a formot, mielőtt tovább mész.
Üdv.
#28787 m.zmrzlina senior tag the radish #28786

Új Válasz 2015-09-25 22:23:38 #28787
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

m.zmrzlina

senior tag

válasz the radish #28786 üzenetére

Szivesen.
#28784 m.zmrzlina senior tag the radish #28782

Új Válasz 2015-09-25 21:28:15 #28784
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

m.zmrzlina

senior tag

válasz the radish #28782 üzenetére

Próbáld a következő egyéni formátumkóddal:
000;-00
#28779 the radish senior tag the radish #28778

Új Válasz 2015-09-25 19:02:04 #28779
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz the radish #28778 üzenetére

Láma vagyok.
A kijelölés volt kevés. A1:F20000
#28770 szatocs1981 aktív tag the radish #28769

Új Válasz 2015-09-25 07:58:20 #28770
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

szatocs1981

aktív tag

válasz the radish #28769 üzenetére

Ez segít a továbbiakban?
If Dir("C:\amitakarsz.txt") <> "" Then MsgBox "File létezik!" Else MsgBox "File nem létezik!" End If
#28755 poffsoft veterán the radish #28753

Új Válasz 2015-09-23 19:14:17 #28755
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

poffsoft

veterán

válasz the radish #28753 üzenetére

miért lépne ki?
az if then lefuttatja a cserét, és megy tovább a makród.
if worksheet("munka1").range("A1")=1 then Dim Zelle As Range For Each Zelle In Selection.Cells Zelle.NumberFormat = "@" Zelle.Value = Replace(Zelle.Value, ",", ".") Next Zelle ELSE blabla2 blabla2 END IF
?
vagy nem értelek.
#28754 poffsoft veterán the radish #28753

Új Válasz 2015-09-23 19:13:01 #28754
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

poffsoft

veterán

válasz the radish #28753 üzenetére

dupla
#28751 Fferi50 Topikgazda the radish #28750

Új Válasz 2015-09-23 15:11:20 #28751
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #28750 üzenetére

Szia!
Workbooks.Open Filename:= "C:\A.xls" Range(cells(2,2),cells(2,2).End(xlDown)).Copy destination:=Workbooks("B.xls").Sheets("munka1"). Range("A2")
Üdv.
#28748 szatocs1981 aktív tag the radish #28747

Új Válasz 2015-09-23 10:19:21 #28748
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

szatocs1981

aktív tag

válasz the radish #28747 üzenetére

Próbáld meg evvel a makróval. Mielött futtatod jelöld ki a cellákat, ahol cserélni akarod a vesszöt pontra!
Sub Csere() Dim Zelle As Range For Each Zelle In Selection.Cells Zelle.NumberFormat = "@" Zelle.Value = Replace(Zelle.Value, ",", ".") Next Zelle End Sub
#28746 szatocs1981 aktív tag the radish #28745

Új Válasz 2015-09-23 10:00:55 #28746
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

szatocs1981

aktív tag

válasz the radish #28745 üzenetére

Amúgy nem az a gond, hogy SZAMOKBAN a tizedesvesszöt akarod lecserélni pontra?
Azt szerintem Windows-ban vagy EXCEL beállításokban kell megtenni.
Ha SZÖVEGBEN akarod lecserélni a vesszöt pontra, akkor müködik a makró!
#28744 szatocs1981 aktív tag the radish #28743

Új Válasz 2015-09-23 08:38:08 #28744
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

szatocs1981

aktív tag

válasz the radish #28743 üzenetére

"Nem megy" - ez mit takar?
#28742 FozzieBear csendes tag the radish #28741

Új Válasz 2015-09-23 01:22:58 #28742
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

FozzieBear

csendes tag

válasz the radish #28741 üzenetére

Szerintem nincs ezzel semmi gond, kicseréli ez az aktív munkalap A1:B20 tartományában.
#28571 Fferi50 Topikgazda the radish #28551

Új Válasz 2015-09-11 22:33:16 #28571
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #28551 üzenetére

Szia!
Úgy gondolom, az a probléma, hogy a meghívott makróból nem ugyanabba a helyzetbe térsz vissza, ahonnan meghívtad:
Rows(tol & ":" & ig).copy WSM.Range("A2") Ezzel átmásolod a sorokat a forrás munkalapról a cél munkalapra
proba
Itt a másolandó munkafüzet innen nevű munkalapja az aktív.
Itt viszont:
Sub proba() Range("A1:E3693").Select ' még mindig a másolandó munkafüzet aktív, annak az A:E oszlopát másolod Selection.copy Windows("B.xls").Activate 'átváltasz a cél munkafüzetre Sheets("Munka2").Select 'abban is a Munka2 munkalapra Range("A1").Select 'és ide másolod be a kijelölt részeket ActiveSheet.Paste Application.CutCopyMode = False Range("A1").Select Sheets("ide").Select ' itt pedig a cél munkafüzet ide nevű munkalapját aktíválod - a cél munkafüzet marad az aktív!!! - Pedig a másolandó munkalap volt aktív, amikor a makrót meghívtad!!! 'Azaz ide a Windows("A.xls").Activate sor kellene ezen sor helyett. MsgBox "Makró" End Sub
Továbbá nem egészen értem, miért kell a Select - Copy - Paste és munkafüzet aktíválások sora (amiben el is vesztél szépen ).
A Copy metódusnak van egy Destination paramétere, amivel megadhatod, hogy hova másolja át az adott tartományt. (Ráadásul ezt alkalmazod is a fejléc másolásánál!).
Vagyis a másolás egy sorral megoldható:
Range('A1:E3693").copy destination:=WSM.parent.Sheets("Munka2").range("A1")
Magyarázat: A WSM.parent eredménye a B munkafüzet, így a másolás egyből annak Munka2 munkalapjára megy át.
A rövidebb makród azért "tökéletes", mert abban csak egy üzenet van és nem végzel vele semmilyen egyéb - munkalap, munkafüzet megváltoztatási - feladatot.
A leírtakból az is kiderül, ha nem kell mást csinálnia a meghívott makrónak, csak ezt a másolást, akkor nincs is rá szükség, mert az egy sort be lehet oda is szúrni a meghívás helyére.
Bocsi, hogy egy "lerágott csontot" próbáltam meg egy kicsit kibogozni eléggé elkésve, de csak most volt időm foglalkozni vele.
Üdv.
#28570 Fferi50 Topikgazda the radish #28568

Új Válasz 2015-09-11 20:59:51 #28570
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz the radish #28568 üzenetére

Szia!
Próbáld ki az alábbi makrót:
Sub csvment() Dim fileszam As Integer, sor As Range fileszam = FreeFile() Open "Minta.csv" For Output As #fileszam For Each sor In ActiveSheet.Rows Print #fileszam, Join(Application.Transpose(Application.Transpose(sor.Value)), ";") Next Close #fileszam End Sub
Üdv.
#28568 the radish senior tag the radish #28567

Új Válasz 2015-09-11 18:03:17 #28568
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz the radish #28567 üzenetére

Hopsz.
Notepad++-ban megnyitva látni a különbséget.
A makróval mentett csv-ben, mindkét sor elején egy " jelet látni, míg a "manuálisan" mentettben ez nincs és ez utóbbit kéne valahogy makróval leutánozni.
munkafüzet1.csv:
munkafüzet2.csv:
Bocs a "topikfoglalásért".
#28561 Delila_1 veterán the radish #28560

Új Válasz 2015-09-10 17:13:15 #28561
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28560 üzenetére

Szívesen (a szerintem semmit).
#28559 Delila_1 veterán the radish #28558

Új Válasz 2015-09-10 17:05:43 #28559
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28558 üzenetére

Sajnálom, csak a füzetek felépítése, és a teljes feladat ismeretében mondhatnék esetleg valamit.
#28557 Delila_1 veterán the radish #28555

Új Válasz 2015-09-10 16:53:09 #28557
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28555 üzenetére

Valószínű, hogy meg lehet oldani, de így vakon kaparászva nem tudok segíteni.
#28552 Delila_1 veterán the radish #28551

Új Válasz 2015-09-10 16:40:42 #28552
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28551 üzenetére

Az Else ágba írtam be két sort, és akkor nincs szükség a külön makróra.
Else ig = Application.Match(sorszam, Columns(1), 1) Rows(tol & ":" & ig).copy WSM.Range("A2") Range("A:E").copy WSM.Sheets("Munka2").Range("A1") '1 WSI.Activate '2 ' Masolas 'Itt indul a saját makród ****** megjegyzésbe tettem sorszam = sorszam + 1 'növeljük a keresendő értéket End If
Hiába írtam át a makród nevét, még mindig van valami disznóság, másképp a VBE átírta volna a copy-t Copyra.
#28550 Delila_1 veterán the radish #28548

Új Válasz 2015-09-10 16:22:48 #28550
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28548 üzenetére

Most hirtelen azt látom nagy hibának, hogy a makród neve egy VBA-s kulcsszó, copy.
Nézd meg, hogy pl. az első makró Else ágában, a
Rows(tol & ":" & ig).copy WSM.Range("A2")
sorban a Copy utasítást nem is váltotta át nagy kezdőbetűre, mert a copy című makródként értelmezi.
#28546 Delila_1 veterán the radish #28543

Új Válasz 2015-09-10 14:29:35 #28546
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28543 üzenetére

A saját makród végén állj vissza oda, ahol a makró előtt voltál.
#28541 Delila_1 veterán the radish #28540

Új Válasz 2015-09-10 06:49:23 #28541
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28540 üzenetére

Nézd meg, nincsenek-e véletlenül azonos nevű változók a két makróban. Nem lehetnek, mert akkor a meghívott makró változói felülírják az indító makró változóinak az értékét.
#28495 Delila_1 veterán the radish #28491

Új Válasz 2015-09-08 06:37:15 #28495
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28491 üzenetére

Semmiképp ne Excelben oldd meg!
Nézz utána a Word körlevél funkciójának.
#28494 szatocs1981 aktív tag the radish #28491

Új Válasz 2015-09-08 06:32:33 #28494
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

szatocs1981

aktív tag

válasz the radish #28491 üzenetére

Lehet, h félreértelmezem a feladatot, de nem megoldás, ha csinálsz a .doc-ból egy kitölthetö .pdf-et?
#28329 Delila_1 veterán the radish #28328

Új Válasz 2015-09-01 10:50:44 #28329
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz the radish #28328 üzenetére

Akkor segítene más.
Szívesen.