Userformdaki textboxlardan ilgili sayfaya kayıt

[slcflz]

Değerli üstadlarım acill çözülmesi gereken bir sorunum var yardımınıza ihtiyacım var. İlgili Açıklama ekteki dosyamda mevcut. Userform üzerinde bulunan textboxlardaki bazı değerleri ilgili sayfasına yazdıramıyorum Şimdiden tşkler

 

[slcflz]

dosya gönderme limitim doldu galiba gönderemiyorum neden acaba

 

[slcflz]

en kısa sürede dosya eklenecektir

 

[slcflz]

Dosyam ektedir içinde açıklamam mevcuttur şimdiden tşkler

 

[slcflz]

Sevgili Arkadaşlar Bir el atsanız şu sorunuma çok acill tşk ederim

 

[meslan]

Merhaba
Sorunuzu pek iyi anlayamadım.
anladığım kadarıyla şu kodu bir dene
İstediğin bu mu?

Private Sub CommandButton5_Click()
sat = Sheets("HAMMADDE_CIKISLAR").Range("D65536").End(xlUp).Row + 1
Sheets("HAMMADDE_CIKISLAR").Range("A" & sat).Value = Application.WorksheetFunction.Max(Sheets("HAMMADDE_CIKISLAR").Range("A:A")) + 1
For i = 2 To 11
If Controls("ComboBox" & i).Text <> "" And Controls("Textbox" & i).Text <> "" Then
Sheets("HAMMADDE_CIKISLAR").Range("B" & sat).Value = ComboBox1.Text
Sheets("HAMMADDE_CIKISLAR").Range("C" & sat).Value = TextBox65.Text
Sheets("HAMMADDE_CIKISLAR").Range("D" & sat).Value = Controls("ComboBox" & i).Text
Sheets("HAMMADDE_CIKISLAR").Range("E" & sat).Value = Controls("TextBox" & i).Text
Sheets("HAMMADDE_CIKISLAR").Range("F" & sat).Value = Controls("TextBox" & i + 21).Text
sat = sat + 1
End If
Next
Sheets("HAMMADDE_CIKISLAR").Range("D" & sat).Value = "TOPLAM"
Sheets("HAMMADDE_CIKISLAR").Range("E" & sat).Value = TextBox33.Value
Sheets("HAMMADDE_CIKISLAR").Range("F" & sat).Value = TextBox34.Value
End Sub

 

[slcflz]

Sayın Meslan İlginize tşk eder,çalışmalarınızda başarılar dilerim istediğim tam buydu