Excel - Makró dátum azonosításra és másolásra

Ez a téma lezárásra került a moderátor által. A lezárás oka: Programozással/fejlesztéssel kapcsolatos problémával a Prog.hu-t keresd fel a jövőben.
Excel - Makró dátum azonosításra és másolásra
2022-07-19T15:01:19+02:00
2022-07-19T15:01:22+02:00
2022-07-20T01:33:51+02:00
Lengyel Zsuzsanna
Sziasztok,

Kis segítséget szeretnék kérni. Adott egy 10 adatoszlopot tartalmazó excelem. Utolsó N oszlopba dátum szerepel. Arra szeretnék makrót készíteni, hogy ellenőrizze le az aznapi dátumtól korábbi dátumot, és másolja át egy új lapfülre az összes olyan sort, amelyben a dátum ilyen - az összes információval együtt.

Korábban, már összeollóztam egy makrót, de változtatni kellene rajta, de ezt már nem tudom megugrani. Nem vagyok benne profi :) Amit eddig összeraktam sem értettem igazán :D 

A dőlt sorig rendben lefut, ott elakad, de nem tudom sajnos mivel. Ha már az egész rossz, és van jobb, egyszerűbb megoldás, azt nagyon szívesen veszem. ÉS előre is köszönöm szépen. :)

Sub Gomb1_Click()
 
Dim utolso_sor As Long
    utolso_sor = Worksheets("Várakozók").Cells(Rows.Count, "A").End(xlUp).Row
 
    Dim utolso_oszlop As Long
    utolso_oszlop = Worksheets("Várakozók").Cells(1, Columns.Count).End(xlToLeft).Column
    
    MsgBox "Az utolsó oszlop száma: " & utolso_oszlop & vbNewLine & "Az utolsó sor száma: " & utolso_sor
 
 
 Dim utolso_sorx As Long
    utolso_sorx = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    k = Date
 
    For i = 2 To utolso_sor
        
        If Worksheets("Várakozók").Cells(i, 14).Value < Date Then
            a = Worksheets("Várakozók").Cells(i, 14).Address(RowAbsolute:=False, ColumnAbsolute:=False)
            b = Worksheets("Várakozók").Cells(i, utolso_oszlop).Address(RowAbsolute:=False, ColumnAbsolute:=False)
                        
         
            Worksheets("Várakozók").Range(a & ":" & b).Copy
                        
            
            Worksheets("Sheet2").Select
            ActiveSheet.Cells(utolso_sorx, 1).Select
            ActiveSheet.Paste
            
            
            utolso_sorx = utolso_sorx + 1
        End If
    Next
    
End Sub
Mutasd a teljes hozzászólást!

Ez a téma lezárásra került a moderátor által. A lezárás oka: Programozással/fejlesztéssel kapcsolatos problémával a Prog.hu-t keresd fel a jövőben.
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd