2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    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

  • #46894 Delila_1 veterán [w] #46893
    Új Válasz #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