combobox ile seçileni hücreye yazdırma

[cenderus]

hocalarım aşağıdaki kodu inceler ve hatami sölermisiniz;


combo box 1-3-4-5 seçimlerinden denk gelen hücreye combobox 2 deki veriyi aşağıdaki kod ile yazdırmadım ;

seçimde sorun yok ama yazırmak için

ComboBox2.Value = Range( " & .Name & " sayfasındaki " & .Cells(satir, sutun).Address)

bu satırın neresinde sorun var acaba

kod




Private Sub CommandButton3_Click()
Dim rngGunler As Range
Dim rngGun As Range
Dim rngUrunler As Range
Dim rngUrun As Range
Dim hcr As Range
Dim sutun As Integer
Dim satir As Integer

If ComboBox1.ListIndex < 0 Then: Exit Sub
If ComboBox3.ListIndex < 0 Then: Exit Sub
If ComboBox4.ListIndex < 0 Then: Exit Sub
If ComboBox5.ListIndex < 0 Then: Exit Sub

With sh

Set rngGunler = .Range(.Cells(2, 4), .Cells(2, .Cells(2, 256).End(xlToLeft).Column))
Set rngGun = rngGunler.Find(ComboBox3, Lookat:=xlWhole)

If Not rngGun Is Nothing Then

If rngGun.MergeCells Then


Set rngGun = rngGun.MergeArea
Set rngGun = .Range(.Cells(3, rngGun.Column), .Cells(3, rngGun.Column + rngGun.Columns.Count - 1))

For Each hcr In rngGun
If hcr = ComboBox4 Then
sutun = hcr.Column
Exit For
End If
Next
End If
End If

Set rngUrunler = .Range(.Cells(4, 2), .Cells(.Cells(65536, 2).End(xlUp).Row, 2))
Set rngUrun = rngUrunler.Find(ComboBox5, Lookat:=xlWhole)

If Not rngUrun Is Nothing Then
satir = rngUrun.Row
End If

ComboBox2.Value = Range( " & .Name & " sayfasındaki " & .Cells(satir, sutun).Address)

End With

Set rngGunler = Nothing
Set rngGun = Nothing
Set rngUrunler = Nothing
Set rngUrun = Nothing

End Sub

 

[Korhan Ayhan]

Selamlar,

A&#351;a&#287;&#305;daki &#351;ekilde denermisiniz.

Sheets(.Name).Range(.Cells(satir, sutun).Address) = ComboBox2.Value

 

[cenderus]

hocam buyuksun

korhan hocam buyuksun inan burda olsan şuan sana sarılıp elini öperdim kaç gündür bu olayı çözmeye çalışıyorum ama beceremedim sayende çözülüd bir kaç sorum daha var ama önce yine ben üstünde kasıyım kesin beceremicem yine ama bu sayede iyi kötü çok şey öğrendim

çok saolun tekrar çok teşekkür ederim

 

[cenderus]

hocam dayanamadım soracağım yine

hocam kusura bakmayın başınızı ağrıtıyorum ama 2 sorum var ve eminim çok kısa iki kod eklemesidir

ilki

combonun veri çektiği sütünda değişiklik yapıldığında usermenu kapatılmadan yada excell sayfası tekrar açılmadan combonun çektiği veriyi güncelleyen yani refresh edecek kodun temeli nedir üstünde çalışabileceğim bir kod veriseniz ben onun üstünde kasarım ,



ikincisi ise

combonun veri çektiği sütunda yada satırda birden fazla aynı isim varsa mükerrer olanları değil sadece tek kayıt nasıl çekerim


örneğin sütunda a a a b b c c diye veri var ama combo sadece a b c göstermeli

çokmu soru sordum yine

ama dediğim gbi başlangiç kodu verirseniz ben üstünde çalışırım hazır lokma istemiyorum öğrenmek istiyorum