combobox yardım

[rainmaker29]

arkadaşlar ekteki dosyada userformdaki comboxlarla ilgili yardım istiyorum. açıklamalar içindedir. tşrkler

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim nesne As Control, sat As Long
With Sheets("Sayfa2")
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    .Cells(sat, "A").Value = sat - 1
    For Each nesne In Me.Controls
        If nesne.Tag <> "" Then
            .Cells(sat, CInt(nesne.Tag)).Value = nesne.Value
        End If
    Next
    .Cells(sat, "G").Value = .Cells(sat, "G").Value * 1
    .Cells(sat, "H").Value = .Cells(sat, "H").Value * 1
End With
MsgBox "İşlem Tamam"
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim SON, S, I, SIRA As Integer
SON = Cells(65536, "B").End(3).Row + 1
S = 2
For I = 1 To 7
Cells(SON, S) = Controls("COMBOBOX" & I)
S = S + 1
Cells(SON, "I") = TextBox1
Next
For SIRA = 1 To Cells(65536, "B").End(3).Row - 1
Cells(SIRA + 1, "A") = SIRA
Next
End Sub
Private Sub CommandButton2_Click()
Dim I As Byte
For I = 1 To 7
 Controls("COMBOBOX" & I) = ""
Next
TextBox1 = ""
End Sub
Private Sub CommandButton3_Click()
End
End Sub

 

[rainmaker29]

sn ziya hiçdurmaz ve evren gizlen yardımlarınız için teşekkürler. elinize sağlık