- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Esenlikler;
A sayfasında C2 den C1000 e kadar "Ad Soyadlar" var.
bunları For next döngüsü içinde
B Sayfası
-A2 hücresinin A1000 inene kadar "Adları"
-B2 hücresinin B1000 inene kadar "Soyadları"
na aktaracak bir fonkisyona ihtiyacım var uyarlayamadım.
Aşağıdaki gibi kullanmak istiyorum.
FncAdSoyadlar Fonkisyonunu nasıl tanımlamalıyım?
A sayfasında C2 den C1000 e kadar "Ad Soyadlar" var.
bunları For next döngüsü içinde
B Sayfası
-A2 hücresinin A1000 inene kadar "Adları"
-B2 hücresinin B1000 inene kadar "Soyadları"
na aktaracak bir fonkisyona ihtiyacım var uyarlayamadım.
Aşağıdaki gibi kullanmak istiyorum.
Kod:
Sub sbYeniListe()
Dim a()
For i = 2 to 1000
a = FncAdSoyadlar(Eski_Liste.Cells(i,3) ," ")
Yeni_Liste.Cells(i,1) = a(1)
Yeni_Liste.Cells(i,2) = a(2)
next i