PC-HELP.CZ

Ahoj,
mám sestavené makro, které kopíruje řádek na jiný list, pokud se změní nějaká hodnota v buňce na onom řádku. Chtěl bych ho ale nastavit tak, aby nedošlo ke kopírování, když se hodnoty ve všech buňkách vymažou a řádek zůstane prázdný. Mohl bych poprosit o radu? Mnohokrát děkuji. bloom

Tady je makro, které si musíš trochu doupravit, páč nevím jaké makro máš.

Kód: Vybrat vše

Sub KopirujJenKdyzNecoJe()
    Dim SrcRange As Range, CllSrcRange As Range
    Dim ChngRow As Integer

    Set SrcRange = Range("A" & ChngRow & ":K" & ChngRow)

    'jsou vsechny bunky prazdne? pokud ano nedelej nic
    For Each CllSrcRange In SrcRange.Cells
      If IsEmpty(CllSrcRange) Then
        'nedelej nic
      Else
      
        'sem napis to kopirovani
        
        Exit For
      End If
    Next CllSrcRange
    Set CllSrcRange = Nothing
    
End Sub

PS: Prober si tu své příspěvky a které jsou dle Tebe vyřešené tak zamkni zelenou fajou (viz. podpis)
Děkujeme

PC-HELP.CZ

Úprava kopírujícího makra

Úprava kopírujícího makra

Re: Úprava kopírujícího makra