[Yardım]  Selection Count Yardım

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Selection Count Yardım

İleti#1)  TrenciJack » 28 Kas 2019 16:40

Merhaba arkadaşlar,

Benim selection.count ile ilgili takıldığım bir yer var. Ben takıldığım yeri basit bir örnek ile açıklayayım.

Sheet1'de 100 ve Sheet2'de 100 müşteri bulunuyor. Ben Sheet1'deki müşterileri kopyalayıp Sheet3'e ardından da Sheet2'deki müşterileri Sheet3'e taşıdığım müşterilerin altına eklemek istiyorum. Yani Sheet2'deki müşteriler A101 ve aşağısına eklenecek. Ben yazdığım kodu yazayım. Yardım edecek kişilere şimdiden çok teşekkür ederim. Biraz karışık oldu ama umarım derdimi anlatabilmişimdir.

Sheets("Sheet1").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet3").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet3").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Alan = Selection.Count + 1
Sheets("Sheet2").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet3").Select
Range("A:A" & Alan).Select
ActiveSheet.Paste
Columns("A:A").Select
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
Kullanıcı avatarı
TrenciJack
 
Kayıt: 02 Ekm 2019 13:37
Meslek: Banka
Yaş: 28
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Selection Count Yardım

İleti#2)  Ali ÖZ » 28 Kas 2019 17:07

Örnek olarak ;
sheets("sayfa1").range("a1:b20").copy sheets("sayfa1").range("a65536").end(3)(2,1)

koduyla a1-b20 aralığını diğer sayfanın ilk boş satırına kopylayabilirsiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9956
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Selection Count Yardım

İleti#3)  erseldemirel2 » 28 Kas 2019 19:20

Tüm bu kodlar yerine aşağıdakide işe yarayabilir. tabi bunlar tercih meselesi aslında

Kod: Tümünü seç
Sub hesapla()
sonsyf1 = Sayfa1.Range("A65536").End(3).Row
sonsyf2 = Sayfa2.Range("A65536").End(3).Row
Sayfa1.Range("A" & 1 & ":A" & sonsyf1).Copy Sayfa3.Range("A1")
sonsyf3 = Sayfa3.Range("A65536").End(3).Row
Sayfa2.Range("A" & 1 & ":A" & sonsyf2).Copy Sayfa3.Range("A" & sonsyf3 + 1)
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Selection Count Yardım

İleti#4)  TrenciJack » 03 Arl 2019 13:17

Çok teşekkür ederim, işe yaradı önerileriniz :)
Kullanıcı avatarı
TrenciJack
 
Kayıt: 02 Ekm 2019 13:37
Meslek: Banka
Yaş: 28
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe