hücre seçerek kopyalama

[kemalist]

Arkadaşlar benim yapmak istediğim seçmek istediğm hücreleri P7 , P9 , P11 den ve sayfayıda P13 den seçerek kopyalamak.Mesela A sayfasında K1:JA1 arasını YUKSEK sayfasında C5 e kopyalamak.Sağda bir makro var fakat buraya uyarlayamadım.Örnek dosya ektedir.

Yardımlarınız için şimdiden teşekkür ederim.


Sub KOPYALAYAPIŞTIR()
Dim son As Integer
Dim bas As String
Dim bit As String

Application.ScreenUpdating = False

son = Sheets("YUKSEK").Range("R65536").End(3).Row
Sheets("YUKSEK").Range("R14" & ":R" & son) = ""

bas = Sheets("A").Range("P7").Value
bit = Sheets("A").Range("P9").Value
Sheets("A").Range(bas & ":" & bit).Copy
hedefsayfa = Sheets("A").Range("P13").Value
hedefhücre = Sheets("A").Range("P11").Value
Sheets(hedefsayfa).Select
Range(hedefhücre).Select
ActiveSheet.Paste
Range("R14").Select
Application.CutCopyMode = False
Sheets("A").Activate

Application.ScreenUpdating = False

MsgBox bas & ":" & bit & vbNewLine & "Alanındaki veriler " & hedefsayfa & " sayfasına kopyalandı..", vbDefaultButton1, "..::.. KEMALİST ..::.."
End Sub

 

[Ömer BARAN]

Merhaba.
Yanlış anlamadıysam aşağıdaki kod'un ilk satırı işinizi görecektir.
İstiyorsanız, bilgi için ikinci satırı da ekleyin.

Sub KOPYALA_YAPIŞTIR_BRN()
[COLOR="Blue"]Sheets("A").Range(Range("P7").Value & ":" & Range("P9").Value).Copy Sheets(Range("P13").Value).Range(Range("P11").Value)[/COLOR]
[COLOR="red"]MsgBox UCase(Range("P7").Value) & ":" & UCase(Range("P9").Value) & vbNewLine & "Alanındaki veriler " & Range("P13").Value & " sayfasına kopyalandı..", vbDefaultButton1, "..::.. KEMALİST ..::.."[/COLOR]
End Sub

 

[kemalist]

Sayın Ömer Bey; İlginize teşekkür ederim.İşlem Tamam.

 

[Ömer BARAN]

Sayın Ömer Bey; İlginize teşekkür ederim.İşlem Tamam.

Estağfurullah, iyi günler dilerim.