Userform comboboxdan hücreye veri aktarma

[vivident]

Merhaba
Ekteki dosyada ;
A1:A kadar herhangi bir hücreye tıkladığımda userform açılsın ve combobox ile seçtiğim veri ilgili hücreye atansın ve userform kapansın istiyorum. Foruma araştırdım bazı örnekler buldum, ama örnekleri indiremiyorum. çünkü eski tarihli hepsi

Bazı kısımları ben yaptım ama son dokunuşları yapamıyorum

Örneğin A1:B5 arasındaki hücrelerde userform açılıyor. Ben A1:A'da istiyorum
Comboboxdan seçtiğim ilgili hücreye yapışmıyor. Bağlantısını kuramadım

Yardımlarınız bekliyorum

 

[vardar07]

Merhaba, Koddaki kırmızılı yeri değiştirerek istediğiniz satıra kadar ayarlayabilirsiniz.
Mavi ile belirtilen yeride değiştirerek kolon sayısını artırabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < [COLOR="Red"][B]1048576[/B][/COLOR] And Target.Column <[COLOR="Blue"][B] 2 [/B][/COLOR]Then
UserForm1.Show
End If
End Sub

Kayıt için:

Private Sub CommandButton1_Click()
Range("A" & Range("A65536").End(3).Row + 1) = ComboBox1
End Sub

 

[vivident]

Hocam verdiğiniz kodlar çalışıyor. İki sorun var
1) İlk seçtiğim hücrede comboboxdan değer girince seçtiğim hücreye değilde farklı satırdaki hücreye atıyor
2) Comboboxdan hücre seçildikten sonra ekleyiniz butonu ile ekledikten hemen sonra userformun kapanmasını sağlayabilirmiyiz

 

[vardar07]

Hocam verdiğiniz kodlar çalışıyor. İki sorun var
1) İlk seçtiğim hücrede comboboxdan değer girince seçtiğim hücreye değilde farklı satırdaki hücreye atıyor
2) Comboboxdan hücre seçildikten sonra ekleyiniz butonu ile ekledikten hemen sonra userformun kapanmasını sağlayabilirmiyiz

1) Benim size verdiğim kayıt kodu "A" sütununda altalta yazarak gider.
2) Kodu aşağıdaki ile değiştirirsen form kapanır.

Private Sub CommandButton1_Click()
Range("A" & Range("A65536").End(3).Row + 1) = ComboBox1
[COLOR="Red"]unload me[/COLOR]
End Sub

 

[vivident]

Hocam gerisinide ben tamamladım. bi kaç örnek kod buldum. onların arasından yaptım bişeyler

Private Sub CommandButton1_Click()
ActiveCell = ComboBox1.Value
Unload Me
End Sub

 

[vivident]

Karıştıra karıştıra bişeyler yaptım ama hep takıldığım noktalar oluyor. Lup listesi oluşturdum ;

D-E-F-I sutunlarına userfom üzerinde bulunan comboboxlardan veri alıyorum.
Aktif hücreyi D sütunu seçtim ve diğer sutunlarada ofset yardımı ile kopyalamaları yapıyorum. çalışıyorda

Private Sub CommandButton1_Click()
ActiveCell = ComboBox1.Value
ActiveCell.Offset(0, 1) = ComboBox2.Value
ActiveCell.Offset(0, 2) = ComboBox3.Value
ActiveCell.Offset(0, 5) = ComboBox4.Value
Unload Me
End Sub

Fakat aktif hücre örneğin D sütunu değilde E veya F veya I sütunlarından biri olursa offset ile yapılan işlem kayma yapıyor. Aktif hücre ne olursa olsun comboboxların hangi sütunlara veri aktaracakları belli. nasıl tanımla yapabilirim

ComboBox1=D
ComboBox2=E
ComboBox3=F
ComboBox4=I

 

[vivident]

Dosya ile ilgili yardımlarınızı bekliyorum arkadaşlar

 

[heavysharpa]

Arkadaşlar, bendeniz de ufak bir exel hesaplama tablosu yaptım. userform da combobox da müşteri adını seçeceğim ve onu teklifraporu2 adlı sayfadaki bir hücreye aktaracağım. Daha da lüzumsuzlaşarak faklı kaydet butonuna basınca tarih,saat ve firma adından ilk 5 harfi alarak teklifler adlı bir klasöre kaydedeceğim. Bu konu hakkında yardımcı olabilirmisiniz.?

 

[heavysharpa]

hücreye userformdan bilgi aktarma ve farklı kaydetme

tabloyu aşağıya ekleyeceğim,yardımcı olursanız çok sevinirim...