Kopyala Yapıştır

[vasifokur]

Herkese iyi akşamlar . Sayfa 1- A1 hücresinde sayfadaki bilgileri Sayfa 1 B2 hücresine yapıştırmak için nasıl bir makro gereklidir? Yardım eder misiniz?

 

[sametozyavuz]

Herkese iyi akşamlar . Sayfa 1- A1 hücresinde sayfadaki bilgileri Sayfa 1 B2 hücresine yapıştırmak için nasıl bir makro gereklidir? Yardım eder misiniz?

kopyalanması gereken a1 den a kaça kadar.
belirtirseniz daha doğru olur.
yada son doluhücreye kadar mı seçsin.

 

[vasifokur]

Samet Bey ;son dolu hücreye kadar olursa çok daha iyi olur.

 

[Mahir64]

Merhaba,

Sub Kopyala()
    Range("A1:A" & Range("A65536").End(3).Row).Copy
    Range("B1").PasteSpecial
    Application.CutCopyMode = False
End Sub

 

[sametozyavuz]

Samet Bey ;son dolu hücreye kadar olursa çok daha iyi olur.

bir deneyin bakalım olmuş mu.

 

[sametozyavuz]

mahir beyin kodda bir iki değişiklik yaptım.
bu kod ile boşukları da kopyalamış olursunuz.
benim ilk gönderdiğimde sadece dolu hücreler kopyalanıyor.
artık hangisi sizin için kullanışlı olursa.

Sub Kopyala()
    Sayfa2.Select
    Range("A1:A" & Range("A65536").End(3).Row).Copy
    Sayfa1.Select
    Range("B2").PasteSpecial
    Application.CutCopyMode = False
End Sub

 

[vasifokur]

Yardım eden arkadaşlara teşekkür ederim. Yalnız benim istediğim şey kopyalanacak sayfa değişken. A1 hücresinde hangi sayfanın adı varsa o sayfadaki bilgilerin kopyalanmasını istiyorum.

 

[ckayaz]

peki kopyaladıktan sonra satır arasında kalan boşluk varsa onları nasıl silebiliriz

Sub Düğme6_Tıklat()
Sayfa2.Select
Range("b4:l14" & Range("A65536").End(3).Row).Copy
Sayfa1.Select
Range("B4:l14").PasteSpecial
Application.CutCopyMode = False
End Sub

 

[sametozyavuz]

peki kopyaladıktan sonra satır arasında kalan boşluk varsa onları nasıl silebiliriz

Sub Düğme6_Tıklat()
Sayfa2.Select
Range("b4:l14" & Range("A65536").End(3).Row).Copy
Sayfa1.Select
Range("B4:l14").PasteSpecial
Application.CutCopyMode = False
End Sub

yukarıda makrosamet adlı çalşmamı bir inceleyiniz.

 

[Mahir64]

Merhaba,

Herkese iyi akşamlar . Sayfa 1- A1 hücresinde sayfadaki bilgileri Sayfa 1 B2 hücresine yapıştırmak için nasıl bir makro gereklidir? Yardım eder misiniz?

İlk sorunuz bu şekilde ama istediğiniz,

Yardım eden arkadaşlara teşekkür ederim. Yalnız benim istediğim şey kopyalanacak sayfa değişken. A1 hücresinde hangi sayfanın adı varsa o sayfadaki bilgilerin kopyalanmasını istiyorum.

Sorunuzu daha net sorarak örnek dosya ile desteklemelisiniz. İyi çalışmalar.

 

[ckayaz]

yukarıda makrosamet adlı çalşmamı bir inceleyiniz.

Sayın Samet Yavuz ilğinizden dolayı teşekkür ederim. Fakat sizin yazmış olduğunuz makro yalnızca bir sütunu yapabiliyorum ekli dosyamda mevcut olan makroyu ben uzattıkça uzattım döngüleri beceremediğim için önce b sütunu sonra c sütunu sonra d sütununu ve en son l sütununa kadar aynı makroyu kopyala yapıştır yaptım.Benim istediğim sayfa2 yi sayfa1 e kopyalamasıdır. sayfa 2de 13 ve 14. satırda hiç veri olmadığı için o satırları siliyor güzel ama diğer satırlarda sağında ve solunda değer varsa ordaki boşluklara karışmasın

 

[omerceri]

Kopyalama işini aşağıdaki kodla halledebilirsin ama silme işini anlamadım.

Sayfa2.Columns("B:I").SpecialCells(xlCellTypeConstants, 23).Copy Sheets("Sayfa1").Range("B4")

 

[ckayaz]

Kopyalama işini aşağıdaki kodla halledebilirsin ama silme işini anlamadım.

Sayfa2.Columns("B:I").SpecialCells(xlCellTypeConstants, 23).Copy Sheets("Sayfa1").Range("B4")

Yapamadım olmadı beynim sulandı sanki ve kafam hiç birşeye basmıyor.sizin gönderdiğiniz kodları bile yapamadım silme işlemi ise boş satırları silecek yani satırda herhangi bir veri varsa silmeyecek ama tamamen boş ise silecek örneğin aşağıdaki tablo silinmiş hali sayfa 2de 2 satır tamamen boş ise sayfa1e silinmiş halini atacak
a b c d e f g h ı j k l
1-Ali Ali Ali Ali Ali Ali Ali Ali Ali Ali Ali
2-Selim Selim Selim Selim Selim Selim Selim Selim Selim Selim Selim
3-Kamil Kamil Kamil Kamil Kamil Kamil Kamil Kamil Kamil Kamil Kamil
4-1 8 15 1 8 15 1 8 15 1 1
5-2 9 2 9 2 9 2 2
6-3 17 3 17 3 17
7-4 11 4 11 4 11 4 4
8- 12 19 12 19 12 19 5 5
9-6 6 6 6 6
10-7 14 21 7 14 21 7 14 21 7 7
11-ddss ddss ddss ddss ddss ddss ddss ddss ddss ddss ddss
12-ss ss ss ss ss ss ss ss ss ss ss
13-ss ss ss ss ss ss ss ss ss ss ss

 

[omerceri]

Silinmeyecek satırlarda sayısal değerler var Silinecek dediğiniz satırlar boş değil metin değerleri var.
Siz esas orijinal dosyanıza daha yakın bir örnek ekler ve kopyala yapıştırmakla hangi amaca ulaşmaya çalıştığınızı açıklarsanız. Daha kolay yardım alırsınız.

 

[ckayaz]

Silinmeyecek satırlarda sayısal değerler var Silinecek dediğiniz satırlar boş değil metin değerleri var.
Siz esas orijinal dosyanıza daha yakın bir örnek ekler ve kopyala yapıştırmakla hangi amaca ulaşmaya çalıştığınızı açıklarsanız. Daha kolay yardım alırsınız.

Dosyam ektedir

 

[omerceri]

Sn ckayaz
Örnek dosya ekte

 

[ckayaz]

Sayın Omerçeri çok teşekkür ederim çok güzel olmuş ellerinize saglık