DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Range("D" & ActiveCell.Row).Value = ComboBox1.Value & "/" & ComboBox2.Value
Range("E" & ActiveCell.Row).Value = ComboBox3.Value & "/" & ComboBox4.Value
Range("F" & ActiveCell.Row).Value = ComboBox5.Value & "/" & ComboBox6.Value
Unload Me
End Sub
Saygıdeğer Evren hocam, tek kelimeyle harika..Ellerin dert görmesin..Ziyadesiyle teşekkürler..