Merhaba arkadaşlar,
Userform üzerinde bir combobox'un var A1:A500 arlığını alıyorum,
birde ComboBox4 var
combodan seçtigim ismin yanına ComboBox4 yazdıklarımı kayıt etmesini istemiştim .
her tuşa tıkladığımda combodaki o ismi bulacak ve ComboBox4'deki bilgiyi yanına kaydedecek, bilgileri yan yana dizecek
Selamlar...
aşagıdaki kodu çalıştıramadım,
Private Sub CommandButton3_Click() 'KODLAR
On Error Resume Next
If ComboBox4.Value = "" Then
MsgBox " Ã?nce Bir Ürün Kodu Yazmalısınız...", vbInformation, " AKD.YAZILIM..."
Exit Sub
End If
Set xlss = Workbooks("AKD_AKİÃ.xls").Worksheets("Sayfa")
Dim y As Range, s As Range
For Each y In xlss.Range("a1:a100")
If ComboBox3.Value = y Then
y.Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(0, 0).Value = ComboBox4
End If
Next
ThisWorkbook.Save
End Sub
Userform üzerinde bir combobox'un var A1:A500 arlığını alıyorum,
birde ComboBox4 var
combodan seçtigim ismin yanına ComboBox4 yazdıklarımı kayıt etmesini istemiştim .
her tuşa tıkladığımda combodaki o ismi bulacak ve ComboBox4'deki bilgiyi yanına kaydedecek, bilgileri yan yana dizecek
Selamlar...
aşagıdaki kodu çalıştıramadım,
Private Sub CommandButton3_Click() 'KODLAR
On Error Resume Next
If ComboBox4.Value = "" Then
MsgBox " Ã?nce Bir Ürün Kodu Yazmalısınız...", vbInformation, " AKD.YAZILIM..."
Exit Sub
End If
Set xlss = Workbooks("AKD_AKİÃ.xls").Worksheets("Sayfa")
Dim y As Range, s As Range
For Each y In xlss.Range("a1:a100")
If ComboBox3.Value = y Then
y.Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(0, 0).Value = ComboBox4
End If
Next
ThisWorkbook.Save
End Sub