Otomatik Kopyalama kod yardım

[kalibre101]

Elimde çalışma sayfamın kod bölümünde kullanmış olduğum bir kod var ufak bir değişiklik yapmam gerek yardımcı olabilirseniz sevnirim.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("HR7:HR30")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
ThisWorkbook.Save
Range("IF" & Target.Row & ":RM" & Target.Row).Copy
MsgBox "DEĞERLER KAYDEDİLDİ VE KOPYALANDI", vbApplicationModal, "NURETTİN KOÇAK"
End If
End Sub

bu kodda HR7 ve HR30 arasındaki stunlara değer girdiğim zaman tabloyu kaydedip aynı satırdaki IF VE RM stunları arasını kopyalıyor
yapmak istediğim değişiklik eğer IF ve KV arası sutunlar gizli ise KW ve RM arasını kopyalamasını istiyorum yardımcı olusanız sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("HR7:HR30")) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        ThisWorkbook.Save
        If Columns("IF:KV").Hidden = True Then
            Range("KF" & Target.Row & ":RM" & Target.Row).Copy
        Else
            Range("IF" & Target.Row & ":RM" & Target.Row).Copy
        End If
        MsgBox "DEĞERLER KAYDEDİLDİ VE KOPYALANDI", vbApplicationModal, "NURETTİN KOÇAK"
    End If
End Sub

 

[kalibre101]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("HR7:HR30")) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        ThisWorkbook.Save
        If Columns("IF:KV").Hidden = True Then
            Range("KF" & Target.Row & ":RM" & Target.Row).Copy
        Else
            Range("IF" & Target.Row & ":RM" & Target.Row).Copy
        End If
        MsgBox "DEĞERLER KAYDEDİLDİ VE KOPYALANDI", vbApplicationModal, "NURETTİN KOÇAK"
    End If
End Sub

Teşekkür ederim oldu