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

• #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
  

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