Dolu hücreleri kopyalama işlemi

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

Giriş sayfasında aktar butonunu tıklayınca, verigişi sayfasındaki verileri ERP sayfalarına aktarıyor.

Giriş Sayfasında MP-ERP yazısnın karşısındaki
1 butonunu tıklayınca MP-ERP sayfasındaki A2 hücresinden G sütuna kadar olan verileri kopyalamalı.
Daha sonra Ctrl-V işlemi yaptığımda başka bir yere yapıştıra bilmeliyim.

2 butonunu tıklayınca MP-ERP sayfasındaki I2 sütununda veri olanları kopyalamalı.

3 butonunu tıklayınca MP-ERP sayfasındaki J2 sütununda veri olanları kopyalamalı.

4 butonunu tıklayınca MP-ERP sayfasındaki K2 hücresinden L sütuna kadar olan verileri kopyalamalı.

5 butonunu tıklayınca MP-ERP sayfasındaki O2 hücresinden AA sütuna kadar olan verileri kopyalamalı.

Örnek olarak ERP sayfalarında ilk 2 satırda işlem var. Ama bu sayı uygulamada artacaktır.


Giriş sayfasında butonlar ile diğer ERP sayfalarındaki verileride bu şekilde kopyalaya bilmeliyim.


Yardım ve fikirlerinizi bekliyorum.

 

[Necdet]

Merhaba,

1. sorunuza ben yanıt vereyim, tabii anladığım kadarıyla

Sub MP_ERP_A2G2_Kopyala()
Sheets("MP-ERP").Range("A2:G2").Copy
End Sub

 

[Emir Hüseyin Çoban]

Sy Necdet Yeşertener ilginiz ve paylaşımınız için teşekküler,

1,2,3,4, ve 5 soru sıralamam değil tablo içerisinde butonlara verdiğim isimler. Haklısınız soru sıralaması gibi bir anlam çıkmış.

Hücrelerin başlangıçları belli ancak, en son verinin hangi hücrede biteceği belli değil.
A2 den seçmeye başlayacak ama G de en son hangi hücrede veri girilmiş ise o alana kadar kopyalayacak.

 

[Ömer]

Merhaba,

G sütunu son dolu satıra göre işlem yapacaksanız.

son = Sheets("MP-ERP").Cells(Rows.Count, "G").End(xlUp).Row

komutu ile son dolu satır bulunur ve aşağıdaki gibi makroya ilave edilir.

Sheets("MP-ERP").Range("A2:G" & son).Copy

.

 

[Emir Hüseyin Çoban]

Sy Ömer, ilgi ve paylaşımınız için çok teşekkürler.
Kodları anlatımınız sayesinde, diğer işlemleride bu şekilde yaptım.
Sorunum çözdüldü.:mutlu:

 

[Emir Hüseyin Çoban]

Merhaba,

Aklıma takılan bir şeyi daha sormak istiyorum,

Tek buton ile bir seferde
A2 den G nin son dolu hücresine kadar seçtik, H yi altayıp I2 den J nin son dolu hücresine kadar seçmek için kodlarda nasıl bir düzenleme yapmalıyız.

 

[Ömer]

Çoklu seçimlerde son dolu satıra giren iki dizi aynı boyda olmama ihtimali olduğu için problem yaşanabilir.

song = Sheets("MP-ERP").Cells(Rows.Count, "G").End(xlUp).Row
sonj = Sheets("MP-ERP").Cells(Rows.Count, "J").End(xlUp).Row

Sheets("MP-ERP").Range("A2:G" & song).Copy
Sheets("MP-ERP").Range("I2:J" & song).Copy

Bu şekilde ayrı yapmaya deneyiniz..

.