Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • 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

  • #28551 the radish senior tag Delila_1 #28550
    Új Válasz #28551
    Ú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 Delila_1 #28550 üzenetére

    Nem, de át is neveztem, nehogy bekavarjon.
    Sajnos így sem megy.
    Sub masolas()
    Dim tol, ig
    Dim WSI As Worksheet, WSM As Worksheet
    Dim sorszam 'az A oszlop értékei
    Dim sorM As Long 'ahova másolsz

    Set WSI = Workbooks("A.xls").Sheets("Innen")
    Set WSM = Workbooks("B.xls").Sheets("Ide")


    WSI.Activate
    Rows(1).copy WSM.Range("A1") 'fejléc másolása
    sorszam = 1: tol = 2

    Do While Cells(tol, 1) <> ""
    'WSM.Cells = "" 'másolat lapjának kiürítése
    sorM = Range("A2")
    tol = Application.Match(sorszam, Columns(1), 0)
    If VarType(tol) = vbError Then 'ha nem talált tol értéket
    MsgBox "Kesz"
    Exit Sub
    Else
    ig = Application.Match(sorszam, Columns(1), 1)
    Rows(tol & ":" & ig).copy WSM.Range("A2")
    proba 'Itt indul a saját makród
    sorszam = sorszam + 1 'növeljük a keresendő értéket
    End If
    Loop
    End Sub

    Sub proba()
    Range("A1:E3693").Select
    Selection.copy
    Windows("B.xls").Activate
    Sheets("Munka2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("ide").Select
    MsgBox "Makró"
    End Sub

    Pedig így tökéletes:
    Sub masolas()
    Dim tol, ig
    Dim WSI As Worksheet, WSM As Worksheet
    Dim sorszam 'az A oszlop értékei
    Dim sorM As Long 'ahova másolsz

    Set WSI = Workbooks("A.xls").Sheets("Innen")
    Set WSM = Workbooks("B.xls").Sheets("Ide")


    WSI.Activate
    Rows(1).copy WSM.Range("A1") 'fejléc másolása
    sorszam = 1: tol = 2

    Do While Cells(tol, 1) <> ""
    'WSM.Cells = "" 'másolat lapjának kiürítése
    sorM = Range("A2")
    tol = Application.Match(sorszam, Columns(1), 0)
    If VarType(tol) = vbError Then 'ha nem talált tol értéket
    MsgBox "Kesz"
    Exit Sub
    Else
    ig = Application.Match(sorszam, Columns(1), 1)
    Rows(tol & ":" & ig).copy WSM.Range("A2")
    Makro 'Itt indul a saját makród
    sorszam = sorszam + 1 'növeljük a keresendő értéket
    End If
    Loop
    End Sub

    Sub Makro() 'ez a saját makród
    MsgBox "Makró"
    End Sub

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