Hücreleri otomatik kopyalama yapıştırma

[kemalist]

P8329 arasındaki hücreleri butonla v8:v329 arasına makro ile butonla nasıl kopyalayıp yapıştıra biliriz.yardımlarınız için şimdiden teşekkürler..
Dosya ektedir.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Range("P8:P320").Copy Range("V8")
End Sub

 

[kemalist]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Range("P8:P320").Copy Range("V8")
End Sub

sayın evren çok teşekkür ederim.

 

[Orion1]

sayın evren çok teşekkür ederim.

Rica ederim.

 

[kemalist]

Sayın evren şimdide aynı olayı sayfa1 den sayfa2 deki hücrelere butonla kopyalayıp yapıştırmak istiyorum .lütfen yardımcı olurmusunuz.şimdiden teşekkürler..
Dosya ektedir.

 

[Orion1]

Sayın evren şimdide aynı olayı sayfa1 den sayfa2 deki hücrelere butonla kopyalayıp yapıştırmak istiyorum .lütfen yardımcı olurmusunuz.şimdiden teşekkürler..
Dosya ektedir.

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Range("P8:P329").Copy Sheets("Sayfa2").Range("O5")
MsgBox "Sayfa2'ye O5'ten itibaren kopyalama Yapıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[muratcx]

Evren hocam yukarıdaki makroyu geliştirip bir çalışma kitabından diğer çalışma kitabının ilgili sayfalarına buton yardımı ile değerleri otomatik kopyalamak mümkünmüdür. Mesela transfer isimli çalışma kitabı oluşturduğumuzu düşünelim. Bu kitabı açıp A kitabının a1:k100 aralığındaki değerleri B çalışma kitabının 2. sayfasına kopyalamak istiyorum

 

[Orion1]

Evren hocam yukarıdaki makroyu geliştirip bir çalışma kitabından diğer çalışma kitabının ilgili sayfalarına buton yardımı ile değerleri otomatik kopyalamak mümkünmüdür. Mesela transfer isimli çalışma kitabı oluşturduğumuzu düşünelim. Bu kitabı açıp A kitabının a1:k100 aralığındaki değerleri B çalışma kitabının 2. sayfasına kopyalamak istiyorum

Örnek dosyaları ekleyiniz.Şimdi üşeniyorum dosya hazırlamaya.

 

[Korhan Ayhan]

Selamlar,

Sn. muratcx,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AÇIK_KİTAPLAR_ARASI_KOPYALAMA_İŞLEMİ()
    Dim K1 As Workbook, K2 As Workbook
 
    Set K1 = Workbooks("Kitap1")
    Set K2 = Workbooks("Kitap2")
 
    K1.Sheets("Sayfa1").Range("A1:K100").Copy K2.Sheets("Sayfa2").Range("A1")
    
    Set K1 = Nothing
    Set K2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[muratcx]

Örnek dosyaları ekleyiniz.Şimdi üşeniyorum dosya hazırlamaya.

Merhaba hocam örnek ektedir.

 

[muratcx]

Korhan hocam çalışma kitapları kapalı konumda olması durumunda daha çok işime yarayacak ilginiz için teşekkür ederim

 

[kemalist]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Range("P8:P329").Copy Sheets("Sayfa2").Range("O5")
MsgBox "Sayfa2'ye O5'ten itibaren kopyalama Yapıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

sayın evren tekrar tekrar teşekkür ederim. hayırlı geceler

 

[Orion1]

Merhaba hocam örnek ektedir.

Dosyanız ektedir.
Dosyaların açık olması lazım.

Sub A_Dosyasından_B_Dosyasına_Kayıt()
'BU dosyalırın açık olması lazım.
Workbooks("A.xls").Sheets("Sayfa1").Range("A1:K100").Copy _
Workbooks("B.xls").Sheets("Sayfa1").Range("A1")
MsgBox "A.xls Dosyasında Sayfa1 deki A1:K100 aralığındaki veriler," & vbLf & _
"B.xls dosyasında Sayfa1 A1:K100 aralığına kopyalandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V E R E N"
End Sub

 

[Orion1]

sayın evren tekrar tekrar teşekkür ederim. hayırlı geceler

Rica ederim.
İyi akşamlar.:cool.

 

[kemalist]

Evren hocam yukarıdaki makroyu geliştirip bir çalışma kitabından diğer çalışma kitabının ilgili sayfalarına buton yardımı ile değerleri otomatik kopyalamak mümkünmüdür. Mesela transfer isimli çalışma kitabı oluşturduğumuzu düşünelim. Bu kitabı açıp A kitabının a1:k100 aralığındaki değerleri B çalışma kitabının 2. sayfasına kopyalamak istiyorum

elbette olur mesaj6 daki dosyayı inceleyebilirsin.çünkü bunun gibi bir şey yapmak istedim.

 

[Orion1]

Korhan hocam çalışma kitapları kapalı konumda olması durumunda daha çok işime yarayacak ilginiz için teşekkür ederim

Kaynak dosya kapalı olabilir buna bişey deme ama hedef dosyayı açıp kaydedip tekrar kapatmak(Kod ile) en doğru yöntem oluer.
Birde bu durumda copy paste değilde value değerleri excel4 makro ile aktardım .Dosya ektedir.
hiç bir dosyanın açık olmasına gerek yok.Kodlar x-zaten açıp kapıyor.

Sub kapali_A_Dosyasından_B_dosyasina_Kayit()
Dim i As Long, k As Long, kapali_str As String, sh As Worksheet
Dim deg As Variant
If Range("F6").Value = "" Then
    MsgBox "Lütfen aktarılacak sayfayı Yazınız.", vbCritical, "UYARI"
    Range("F6").Select
    Exit Sub
End If
kapali_str = "'" & ThisWorkbook.Path & "\[A.xls]Sayfa1'!R"
If Workbooks.Open(ThisWorkbook.Path & "\B.xls").ReadOnly = True Then
    Workbooks("B.xls").Close
End If
ThisWorkbook.Activate
Set sh = Workbooks("B.xls").Sheets(Range("F6").Value)
sh.Range("A1:K100").ClearContents
For k = 1 To 11
    For i = 1 To 100
        deg = Application.ExecuteExcel4Macro(kapali_str & i & "C" & k)
        If deg <> 0 Then sh.Cells(i, k).Value = deg
    Next i
Next k
Workbooks("B.xls").Close True
MsgBox "Kapalı A.xls Dosyasında Sayfa1 deki A1:K100 aralığındaki veriler," & vbLf & _
"B.xls dosyasında Sayfa1 A1:K100 aralığına kopyalandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
        
End Sub

 

[muratcx]

Evren hocam eline sağlık, birde kopyualanacak çalışma kitabındaki sayfayı değişken olarak ayarlayabilsek çok işime yarayacak açılır listedden seçtiğim sayfa numarasına göre o sayfaya aktarım olsun istiyorum.

 

[Orion1]

Evren hocam eline sağlık, birde kopyualanacak çalışma kitabındaki sayfayı değişken olarak ayarlayabilsek çok işime yarayacak açılır listedden seçtiğim sayfa numarasına göre o sayfaya aktarım olsun istiyorum.

A sütununa B.xls dosyasımndaki sayfaları giriniz.
F6 hücresinden sayfa adını seçtiktan sonra aktar butonuna basınız.
Yanlış sayfa adı yazarsanız (A sütununa ) hata oluşur.
Güncelledim.Dosyayı 16 numaralı mesajdan indirebilirsiniz.

 

[muratcx]

Sn Evren Gizlen tekrar tekrar teşekkür ederim.

 

[Orion1]

Sn Evren Gizlen tekrar tekrar teşekkür ederim.

Rica ederim.
İyi çalışmalar.