Új hozzászólás Aktív témák

• #46901 Delila_1 veterán [w] #46895

  Új Válasz 2021-06-09 05:49:55 #46901

  Ú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 [w] #46895 üzenetére

  Nem őrizgetem a fájlokat, amikben segítséget adok. Arra gondolok, hogy megadom a választ, és kész. Ahányszor új kérésed van, újra létre kell hoznom a szükséges adatokat.
  Valóban elnéztem a cserélendő részt, de még mindig nem világos, mit akarsz. Az a bizonyos "cég/sorszám/más" azonos az egyes fájlokban, vagy nem, a más mindig más, vagy mindenhol azonos? Ez nagyon nem mindegy.

• #46896 lappy őstag [w] #46895

  Új Válasz 2021-06-08 21:56:45 #46896

  Ú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 [w] #46895 üzenetére

  Na szerintem inkább neked kellene normálisan fogalmazni hogy mit szeretnél!
  És remélem aki segíthetne a fórumon neked az egyik sem fog ezek után! Aki ismeri Delila1 azt tudja hogy egyáltalán nem olyan ahogy te leirtad és sokszor pont nekünk akik segítenek azoknak kell kihamozni hogy mit akar a másik. De a te esetedben nagyon nehéz.

• #46894 Delila_1 veterán [w] #46893

  Új Válasz 2021-06-08 20:38:12 #46894

  Ú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 [w] #46893 üzenetére

  Már kértelek, hogy pontosan írd le, mit szeretnél. Először ezt írtad:
  valami/izé -ből az "izé"-t kicserélni "hogyishíjják"-ra
  ami sima szövegcsere, aztán kiderült, hogy egy sorszámot kell kicserélni egy 3 tagú szövegben, és ez növekedjen fájlonként.
  Az előző makróba megjegyzésként beírtam, mire jó a kétféle útvonal. Ha nálad minden az elsőként megadott mappában van, akkor a másodikat elhagyhatod.

  Most csak a változó részt másolom ide.

  Bővül a helyfoglalás.
  Dim utvonal As String, sor As Long, usor As Long, sorszam As Integer
Dim kezd As Integer, veg As Integer
sorszam=1

  és a With–End With rész
  With Sheets(1)
    .Range("B25") = .Range("B25") & " " & "Készítő neve"
    kezd = InStr(.Range("K25"), "/") + 1
    veg = InStr(kezd, .Range("K25"), "/")
    .Range("K25").Replace What:=Mid(.Range("K25"), kezd, veg - kezd), Replacement:=sorszam, LookAt:=xlPart, SearchOrder:=xlByRows
    sorszam = sorszam + 1
    .Range("C25") = Date
    .Range("D25") = .Range("D25") & " " & "Józsi"
End With
  

• #46892 Delila_1 veterán [w] #46891

  Új Válasz 2021-06-08 11:37:11 #46892

  Ú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 [w] #46891 üzenetére

  Igen, hozzáfűzés.

• #46890 Delila_1 veterán [w] #46886

  Új Válasz 2021-06-08 11:28:09 #46890

  Ú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 [w] #46886 üzenetére

  A makrót tedd egy üres füzetbe. Írd át az utvonal változó értékét két helyen értelem szerűen, és a txt fájl nevét.
  Indításkor megnyitja a txt fájlt, ahol az A oszlopban (A1-től kezdve) szerepelnek az módosítandó fájlok nevei, kiterjesztéssel.
  Egy ciklusban egyenként megnyitja a 900 fájlt, végrehajtja a módosításokat, és a cserét, amit most csak a B oszlopra írtam meg.

  Sub xx()
    Dim utvonal As String, sor As Long, usor As Long
    utvonal = "C:\Dokumentumok\___TEMP\"  'A címeket tartalmazó txt fájl útvonala
    
    Workbooks.OpenText Filename:=utvonal & "megnyitando.txt"    'Cseréld ki a txt nevét
    usor = Range("A" & Rows.Count).End(xlUp).Row
    
    utvonal = "C:\Dokumentumok\___TEMP\Fájlok\" 'A módosítandó fájlok útvonala
    For sor = 1 To usor
        Workbooks.Open Filename:=utvonal & Cells(sor, 1)
        With Sheets("Ellenőrzendő")
            .Range("B25") = .Range("B25") & " " & "Készítő neve"
            
            'Cserék a B oszlopban
            Columns(2).Replace What:="izé", Replacement:="hogyishíjják", LookAt:= _
                xlPart, SearchOrder:=xlByRows
            .Range("C25") = Date
            .Range("D25") = .Range("D25") & " " & "Józsi"
        End With
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    Next
End Sub

• #46886 [w] őstag [w] #46885

  Új Válasz 2021-06-08 09:28:55 #46886

  Ú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

  

  [w]

  őstag

  válasz [w] #46885 üzenetére

  oké, a hozzáfűzést ActiveCell.Value &-del megoldottam, de mi van, ha szót szeretnék cserélni pl. valami/izé -ből az "izé"-t kicserélni "hogyishíjják"-ra

• #46884 Delila_1 veterán [w] #46883

  Új Válasz 2021-06-08 08:13:06 #46884

  Ú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 [w] #46883 üzenetére

  Szívesen.
  Az első kérdésedben (#46866) írtál kódról, de nem másoltad be. Úgy nézett ki, mintha egy cellában lévő függvényről lenne szó.
  Pontosan leírt kérdésre már lehet válaszolni.

• #46873 Delila_1 veterán [w] #46872

  Új Válasz 2021-06-07 18:20:36 #46873

  Ú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 [w] #46872 üzenetére

  Látod, ez már rendesebb. Először nem derült ki, miről van szó.
  Sub xx()
  Dim sMappa  As String, s As String, wb As Workbook
  
  sMappa = "C:\Dokumentumok\___TEMP\"
  s = Dir(sMappa & "*.xls*")
  Do While s <> ""
    Set wb = Workbooks.Open(sMappa & s)
    With wb.Sheets("Ellenőrzendő")
        .Range("B25") = "Készítő neve"
        .Range("C25") = Date
        .Range("D25") = "Józsi"
    End With
    wb.Save
    wb.Close False
    s = Dir
  Loop
End Sub

• #46871 Delila_1 veterán [w] #46866

  Új Válasz 2021-06-07 13:42:29 #46871

  Ú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 [w] #46866 üzenetére

  
  Persze lehet, hogy egészen másra gondolsz. Abban az esetben rendesen írd meg, mit is szeretnél.

• #46603 Pakliman tag [w] #46602

  Új Válasz 2021-05-07 11:08:29 #46603

  Ú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 [w] #46602 üzenetére

  Ha előre tudod, hogy melyik mappákban kell keresni, akkor kis bővítéssel működik.
  Csak annyiszor kell a programkódot lemásolni a megfelelő mappanévvel, ahány mappában keresni akarsz.
  Ezt csak néhány mappa esetén célszerű használni.
  Természetesen a mappaneveket tömbbe is rakhatod, majd egy For..Next ciklussal végig mész rajtuk.
  Így sokkal rövidebb (és elegánsabb) lesz a kód.

  Sub xx()
Dim aMappa
Dim sMappa As String
Dim s As String
Dim wb As Workbook
Dim i As Long

aMappa = Array( _
"C:\Dokumentumok\___TEMP\", _
"c:\Dokumentumok\Run\", _
"c:\Dokumentumok\_ VEGYES\_Downloads\" _
)

For i = LBound(aMappa) To UBound(aMappa)
sMappa = aMappa(i)
s = Dir(sMappa & "*.xls*")
Do While s <> ""
Set wb = Workbooks.Open(sMappa & s)
If IsEmpty(wb.Worksheets("Ellenőrzendő").Range("B25")) Then
wb.Worksheets("Ellenőrzendő").Range("B25") = "Készítő neve"
wb.Save
End If
wb.Close

s = Dir
Loop
Next i

End Sub

  Változó mappastruktúra esetén már előkerül a rekurzív könyvtárkezelés.
  Az már egy kicsit bonyolultabb dolog.

• #46601 Pakliman tag [w] #46600

  Új Válasz 2021-05-07 09:55:14 #46601

  Ú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 [w] #46600 üzenetére

  Sub xx()
Dim sMappa As String
Dim s As String
Dim wb As Workbook

sMappa = "C:\Dokumentumok\___TEMP\"
s = Dir(sMappa & "*.xls*")
Do While s <> ""
Set wb = Workbooks.Open(sMappa & s)
If IsEmpty(wb.Worksheets("Ellenőrzendő").Range("B25")) Then
wb.Worksheets("Ellenőrzendő").Range("B25") = "Készítő neve"
wb.Save
End If
wb.Close

s = Dir
Loop
End Sub

• #46568 lappy őstag [w] #46567

  Új Válasz 2021-05-04 15:45:03 #46568

  Ú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 [w] #46567 üzenetére

  hogyan használod a szűrőt?
  ha nem jelölöd ki akkor nem szűri

• #45020 Delila_1 veterán [w] #45005

  Új Válasz 2020-09-30 14:50:19 #45020

  Ú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 [w] #45005 üzenetére

  A 2017.01.01-2017.01.31 szöveget tartalmazó oszlop mellé beírod a dátum első tagját. Ezt, és az alatta lévő cellákat kijelölöd, majd Adatok | Adateszközök | Villámkitöltés. Így jársz el a dátum második tagjával is.

• #45006 Fferi50 Topikgazda [w] #45005

  Új Válasz 2020-09-29 20:19:16 #45006

  Ú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 [w] #45005 üzenetére

  Szia!
  A bontáskor használd a DÁTUMÉRTÉK függvényt, ebbe ágyazd be a BAL - JOBB függvényeket.
  Üdv.

• #45005 [w] őstag [w] #45004

  Új Válasz 2020-09-29 20:01:09 #45005

  Ú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

  

  [w]

  őstag

  válasz [w] #45004 üzenetére

  ok, rájöttem mi volt a gond, de most egy másik adódott...

  a B-C oszlop dátumai ugyanis úgy keletkeznek, hogy máshonnan a 2017.01.01-2017.01.31 formában beírt időszakot BAL és JOBB függvénnyel bontom kezdete és végére, de így nem dátumként érzékeli
  ha a bontott értékek szerkesztésekor az érték végén nyomok egy del-t és utána enter, akkor azonnal dátumformátumra állítja és a MIN-MAX képletek is jól lefutnak

  csakhogy 6000 soron nem tudom ezt az értékkorrekciót végigcsinálni kézzel

• #45003 Delila_1 veterán [w] #45002

  Új Válasz 2020-09-29 18:41:35 #45003

  Ú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 [w] #45002 üzenetére

  Bemásoltam a neveket a H oszlopba, és ott az Adatok | Adateszközök | Ismétlődések eltávolítása funkcióval megszüntettem a többszörözést.
  Az I2 cella képlete: =MIN(HA($A$2:$A$30=H2;$B$2:$B$30))
  A J2-é pedig: =MAX(HA($A$2:$A$30=H2;$C$2:$C$30))
  Mindkettő tömbfüggvény, Shift + Ctrl + Enter-rel kell bevinned. A képletek lefelé másolhatók.

  Természetesen a 30-at mindkét képletben írd át annyira, amennyire szükséges.

Új hozzászólás Aktív témák