şarta göre kopyala yapıştır(aktar)

[aliakgul]

Merhaba arkadaşlar,
Butona tıkladığımda başarı durumu önce "BAŞARILI" olanlar sonra "BAŞARISIZ
" olanlar sayfa2'ye aktarılsın istiyorum.
a)Hedef sayfaya bilgiler başka sayfadan düşeyara formülleri ile alınıyor.
b)Listedeki kişi sayısı değişken.
İlgilenenlere teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayabilirsiniz.

Public Sub Aktar()
Set s1 = Sheets("kütük")
Set s2 = Sheets("Sayfa2")
s1.Range("A1:L" & s1.[A65536].End(3).Row).Copy s2.[A1]
s2.Range("A2:L" & s2.[A65536].End(3).Row).Sort Key1:=s2.[L2]
End Sub

 

[aliakgul]

Necdet Ustam,
Kodları uyguladım ancak değerleri değil, formülleri aktarıyor.
Not:
Private sub ile public sub uygulamanın arasında fark vrmıdır?

 

[Necdet]

Merhaba,

Sadece değerleri almak gerekirse kodlarda küçük bir değişiklik yapmak gerek.

Sub Aktar()
Set s1 = Sheets("kütük")
Set s2 = Sheets("Sayfa2")
s1.Range("A1:L" & s1.[A65536].End(3).Row).Copy
s2.[A1].PasteSpecial Paste:=xlPasteValues
s2.Range("A2:L" & s2.[A65536].End(3).Row).Sort Key1:=s2.[L2]
End Sub

Public ve Private arasındaki farkı kitaplar şöyle diyor :

Public : Sub yordamının bütün modüllerdeki tüm diğer yordamlar tarafından erişilebilir olduğunu belirten isteğe bağlı bir öğe. Option Private diyemi içeren bir modül içinde kullanılırsa yordam projenin dışında kullanılamaz.

Private : Sub yordamının yalnızca tanımlandığı modül içindeki diğer yordamlar tarafından erişildiğini belirten isteğe bağlı bir öğe.

ENİNE BOYUNA Excel 2003 Programlama

 

[aliakgul]

Yoğunluktan dolayı geri dönüp teşekkür etmeyi unuttum, kusura bakmayın. Çok teşekkür ederim. Yeri gelmişken bir soru daha:

Yukarıdaki kodlarda yer alan [A65536] ifadesi yerine a değişkenini atayacak olsak nasıl bir düzenleme yapmalıyız?
a= sayfa1.[a1] olduğunu kabul edelim.