- Katılım
- 27 Ocak 2021
- Mesajlar
- 96
- Excel Vers. ve Dili
- 2019 turkce
merhabalar aşagıdaki gibi bir kodum var jx7 ve jx30 arasında değer girildiği zaman exeli kaydediyor ve belirli hücreleri kopyalıyor
buraya kadar sıkıntı yok ben bu kopyalanan verileri yapıştırmak istiyorum aşağıdaki kodda kırmızı olarak yazdığım yerlere yardımcı olursanız memnun olurum.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("JX7:JX30")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
ThisWorkbook.Save
If Columns("LE : PT").Hidden = True Then
Range("PU" & Target.Row & ":ADV" & Target.Row).Copy
'burada kopyalanan veriyi sayfa121 cr6 hücresinden başlayarak yapıştıracak
Else
Range("LE" & Target.Row & ":ADV" & Target.Row).Copy
'burada kopyalanan veriyi sayfa121 B6 hücresinden başlayarak yapıştıracak
End If
MsgBox "DEĞERLER KAYDEDİLDİ VE KOPYALANDI", vbApplicationModal, "NURETTİN KOÇAK"
End If
End Sub
buraya kadar sıkıntı yok ben bu kopyalanan verileri yapıştırmak istiyorum aşağıdaki kodda kırmızı olarak yazdığım yerlere yardımcı olursanız memnun olurum.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("JX7:JX30")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
ThisWorkbook.Save
If Columns("LE : PT").Hidden = True Then
Range("PU" & Target.Row & ":ADV" & Target.Row).Copy
'burada kopyalanan veriyi sayfa121 cr6 hücresinden başlayarak yapıştıracak
Else
Range("LE" & Target.Row & ":ADV" & Target.Row).Copy
'burada kopyalanan veriyi sayfa121 B6 hücresinden başlayarak yapıştıracak
End If
MsgBox "DEĞERLER KAYDEDİLDİ VE KOPYALANDI", vbApplicationModal, "NURETTİN KOÇAK"
End If
End Sub