vba ile otomatik kopyalanan değeri sayfaya yapıştırma

[kalibre101]

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

 

[DoğanD]

Aşağıdaki gibi dener misiniz?

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 sayfa121.cells(sayfa121.Range("CR" & Rows.Count).End(xlUp).Row + 1,96)
'burada kopyalanan veriyi sayfa121 cr6 hücresinden başlayarak yapıştıracak

Else
Range("LE" & Target.Row & ":ADV" & Target.Row).Copy sayfa121.cells(sayfa121.Range("B" & Rows.Count).End(xlUp).Row + 1,2)
'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

 

[kalibre101]

Aşağıdaki gibi dener misiniz?

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 sayfa121.cells(sayfa121.Range("CR" & Rows.Count).End(xlUp).Row + 1,96)
'burada kopyalanan veriyi sayfa121 cr6 hücresinden başlayarak yapıştıracak

Else
Range("LE" & Target.Row & ":ADV" & Target.Row).Copy sayfa121.cells(sayfa121.Range("B" & Rows.Count).End(xlUp).Row + 1,2)
'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

birleştirilmiş hücrenin bir parçası değiştirilemez diye hata veriyor

 

[DoğanD]

Yapıştırmaya çalıştığınız alanda birleştir - ortala olarak ayarladığınız bir alan var gibi görünüyor.

 

[kalibre101]

Yapıştırmaya çalıştığınız alanda birleştir - ortala olarak ayarladığınız bir alan var gibi görünüyor.

teşekkür ederim