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

    IT café

    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

  • #20162 Delila_1 Topikgazda Törpella #20159
    Új Válasz #20162
    Ú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

    Topikgazda

    válasz Törpella #20159 üzenetére

    Feltételezem, hogy mindkét lapon van címsorod.

    Sub masolas()
    Dim sor As Long, usorA As Long, usorM As Long, WF As WorksheetFunction

    Sheets("Adatok").Select
    Set WF = Application.WorksheetFunction
    usorA = Range("F" & Rows.Count).End(xlUp).Row

    For sor = 2 To usorA
    If WF.CountA(Range("F" & sor & ":H" & sor)) = 3 And Range("K" & sor) <> "" And _
    WF.CountA(Range("P" & sor & ":Q" & sor)) = 2 Then
    usorM = WF.CountA(Sheets("Mentett").Columns(1)) + 1
    Range("F" & sor & ":H" & sor).Copy
    Sheets("Mentett").Range("A" & usorM).PasteSpecial Paste:=xlPasteValues
    Range("K" & sor).Copy
    Sheets("Mentett").Range("D" & usorM).PasteSpecial Paste:=xlPasteValues
    Range("P" & sor & ":Q" & sor).Copy
    Sheets("Mentett").Range("E" & usorM).PasteSpecial Paste:=xlPasteValues
    End If
    Next
    End Sub

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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