Úprava kopírujícího makra

[bloom]

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

[Reklama]

[cmuch]

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