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

• #52182 Delila_1 veterán Rhair #52181

  Új Válasz 2024-02-16 07:32:28 #52182

  Ú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 Rhair #52181 üzenetére

  Módosítottam a makrón. Mint írtam, nem szükséges a D oszlop, ami a két dátum között eltelt napokat számolja.
  Sub Masolas()
    Dim sor As Integer, ide As Integer
    
    Sheets("Munka2").Columns("A:D").ClearContents
    Range("A1:C1").Copy Sheets("Munka2").Cells(1) 'címsor másolása
    Sheets("Munka1").Select
    ide = 2: sor = 2
    
    Do While Cells(sor, 1) > ""
        If Cells(sor, 3) - Cells(sor, 2) >= 360 Then
            Rows(sor).Copy Sheets("Munka2").Range("A" & ide)
            Rows(sor).EntireRow.Delete
            ide = ide + 1: sor = sor - 1
        End If
        sor = sor + 1
    Loop
End Sub

  A Munka1 lapon az első sort magasabbra vettem, hogy rendesen elférjen a frissítő gomb. Ez egy alakzat (lekerekített sarkú téglalap, de lehet bármi más is), ehhez rendeltem a Masolas makrót.

  Eredeti Munka1 lap:
  

  A makró indítása után:

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