Textbox ve Select Box değerli buton ile kayıt

ALTINYAYLA

Altın Üye
Katılım
26 Nisan 2005
Mesajlar
284
Excel Vers. ve Dili
Office 2016 Türkçe
Altın Üyelik Bitiş Tarihi
13-01-2029
merhabalar
sayfada 5 select box ve 5 checkboz olduğunu varsayarsak bir buton ile
sayfa2 deki a2 den başlayarak nasıl kayıt yapabilirim her kayıtta bir alt satira geçmeli mantığı konusunda yardimci olursanız sevinirim
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Aşağıdaki gibi bir yapı kurabilirsiniz. ( TextBox için )
Kod:
Sub test()
    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Byte
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    sat = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    If S2.Range("A2") = "" Then sat = 2
    For i = 1 To 5
        S2.Cells(sat, "A") = S1.Shapes("TextBox" & i).OLEFormat.Object.Object.Value
        sat = sat + 1
    Next i
End Sub
 

ALTINYAYLA

Altın Üye
Katılım
26 Nisan 2005
Mesajlar
284
Excel Vers. ve Dili
Office 2016 Türkçe
Altın Üyelik Bitiş Tarihi
13-01-2029
Merhaba,

Aşağıdaki gibi bir yapı kurabilirsiniz. ( TextBox için )
Kod:
Sub test()
    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Byte
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    sat = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    If S2.Range("A2") = "" Then sat = 2
    For i = 1 To 5
        S2.Cells(sat, "A") = S1.Shapes("TextBox" & i).OLEFormat.Object.Object.Value
        sat = sat + 1
    Next i
End Sub
Ömer bey vakit ayırıp cevapladığınız için teşekkür ederim.

mantık olarak bu şekilde ama
Merhaba,

Aşağıdaki gibi bir yapı kurabilirsiniz. ( TextBox için )
Kod:
Sub test()
    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Byte
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    sat = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    If S2.Range("A2") = "" Then sat = 2
    For i = 1 To 5
        S2.Cells(sat, "A") = S1.Shapes("TextBox" & i).OLEFormat.Object.Object.Value
        sat = sat + 1
    Next i
End Sub
vakit ayırdığınız için teşekkürler ama bunu sayfa bire buton koyup buton ile a2 den başlayarak yan yana yazmasını istiyorum ve her kayıtta bir alta geçmesi gerekli bakabilirseniz çok sevinirim omer hocam
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Zaten söylediğiniz işlemi yapıyor.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Deneyiniz.
Kod:
Sub test()
    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Byte
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    sat = S2.Cells(2, Columns.Count).End(xlToLeft).Column + 1
    If S2.Range("A2") = "" Then sat = 1
    For i = 1 To 2
        S2.Cells(2, sat) = S1.Shapes("TextBox" & i).OLEFormat.Object.Object.Value
        sat = sat + 1
    Next i
End Sub
 

ALTINYAYLA

Altın Üye
Katılım
26 Nisan 2005
Mesajlar
284
Excel Vers. ve Dili
Office 2016 Türkçe
Altın Üyelik Bitiş Tarihi
13-01-2029
Deneyiniz.
Kod:
Sub test()
    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Byte
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    sat = S2.Cells(2, Columns.Count).End(xlToLeft).Column + 1
    If S2.Range("A2") = "" Then sat = 1
    For i = 1 To 2
        S2.Cells(2, sat) = S1.Shapes("TextBox" & i).OLEFormat.Object.Object.Value
        sat = sat + 1
    Next i
End Sub
hocam yan yana yazdı ama her clickde bir alt satıra gecip sirayla yazmasi gerekiyor
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Deneyiniz.
Kod:
Sub test()
    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, i As Byte
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    sat = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    If S2.Range("A2") = "" Then sat = 2
    For i = 1 To 5
        S2.Cells(sat, i) = S1.Shapes("TextBox" & i).OLEFormat.Object.Object.Value
    Next i
End Sub
 
Üst