userformdaki combobox a1:a10 aralığındaki verileri c1:c10 aralığındaki ilk boş hucrey

[baknediycem]

userformdaki combobox sayfa1!a1:a10 aralığındaki verilerden secileni sayfa1!c1:c10 aralığındaki ilk boş hucreye aktarsın.


şimdiden tesekkur ederim.

 

[N.Ziya Hiçdurmaz]

Private Sub ComboBox1_Change()
kop = ComboBox1.Value
s = WorksheetFunction.CountA([c1:C65000])
Range("c" & s + 1) = kop
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "a1:a10"
End Sub

 

[baknediycem]

tesekkur ederim .. fakat

fakat :


mesela a1de bulunan "Ali" kelimesini gonderdikten sonra yine "Ali" gondereceksem olmuyor. yani. c'de altalta aynı veriyi yazmıyor.

yani.. comboboxta(a1:a10 aralığında)a1'de "ali" , a2'de" ahmet" , a3'de"mehmet" vs. vs. var diyelim. comboboxtan c1:c10 aralığına gonderecektik ya; c1'e "ali"yi gonderdim; c2'ye de "ali" gondermek istiyorum fakat hiçbir işlem yapmıyor.ancak "ahmet" gonderirsem bir alt hucreye "ahmet" yazarak devam ediyor. benim istediğim a1 e "ali" a2'ye de belki "ali" yazdırabilirim. bunu sağlamam konusunda yardımcı olur musunuz?

tesekkur ederim.

 

[baknediycem]

merhaba

ve bir de eğer mümkünse (formumun showmodal'ı false) form aktifken hucrelere mudahale edebiliyorum. comboboxla c2'ye aktardığım veriyi("ali") c2 hucresine tıklayıp "ahmet"e dönüştürmek istiyorum. bu yonde de bir katkınız olursa sevinirim.

 

[baknediycem]

( guncelleme )

 

[Orion1]

Merhaba.
Bir commandbuton ekleyin ve aşağıdaki kodları yapıştırıp deneyiniz.

Private Sub CommandButton1_Click()
Dim hucre As Range
Sheets("Sayfa1").Select
For Each hucre In [C1:C10]
    If hucre = "" Then
        hucre.Value = ComboBox1.Value
        MsgBox "Aktarma Yapıldı..!!", vbOKOnly, Application.UserName
        Exit For
    End If
Next
End Sub

 

[baknediycem]

emeğinize sağlık

tesekkurler sayın V.Basic For Applications ve sayın Sezar!

İşiniz gucünüz rast gitsin.