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

[ALTINYAYLA]

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]

Merhaba,

Aşağıdaki gibi bir yapı kurabilirsiniz. ( TextBox için )

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]

Merhaba,

Aşağıdaki gibi bir yapı kurabilirsiniz. ( TextBox için )

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 )

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]

Zaten söylediğiniz işlemi yapıyor.

 

[ALTINYAYLA]

Zaten söylediğiniz işlemi yapıyor.

alt alta yazıyor hocam yan yana nasıl yapabiliriz

 

[Ömer]

Deneyiniz.

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]

Deneyiniz.

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]

Deneyiniz.

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