Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Private Sub Userform_Initialize()
Sheets("VELİ").Range("e2:e25").Selection , Selection.End(xlDown)
Sheets("ALİ").Range("e2:e25").PasteSpecial
Sheets("VELİ").Select
Range("A1").Select
ComboBox1.RowSource = ("ali!e2:e25")
End Sub
***KOLAY GELSİN***
'arkadaslar burda yapmak istediğim şey; veli sayfasında e2'den e kolonunun dolu olan satırına kadar Comboboxta görünmesi
'Combobox1 değeri veli sayfasından e2'den dolu olan sonyere kadar ali sayfasının e kolonuna kopyalamak ve değeri burdan okumasını istiyorum
'yardımcı olursanız sevinirim:
dosyayı yolluyorum
yardımlarını beklıyorum
Sheets("VELİ").Range("e2:e25").Selection , Selection.End(xlDown)
Sheets("ALİ").Range("e2:e25").PasteSpecial
Sheets("VELİ").Select
Range("A1").Select
ComboBox1.RowSource = ("ali!e2:e25")
End Sub
***KOLAY GELSİN***
'arkadaslar burda yapmak istediğim şey; veli sayfasında e2'den e kolonunun dolu olan satırına kadar Comboboxta görünmesi
'Combobox1 değeri veli sayfasından e2'den dolu olan sonyere kadar ali sayfasının e kolonuna kopyalamak ve değeri burdan okumasını istiyorum
'yardımcı olursanız sevinirim:
dosyayı yolluyorum
yardımlarını beklıyorum