(14/01/2020, 12:04)accessman yazdı: birincisi yazdığım kodlar el emeği kopyala yapıştır değil mantık yürüterek daha önce hiç bir yerde rastlamadığım bir şekilde konuya çözüm getirmeye çalıştım
ikinci olarak her ne kadar soru ile başlamış olsa bile bir kaç arkadaş dışında ilgilenen olmadığı için kendi çözümlerimi ekler hale geliyorum soru sorma özelliğinden çok olay örnek ekleme şekline dönüyor 
üçüncüsü içinde sadece kod olacaksa örnek eklemektense kod olarak paylaşılması siteye yük açısından daha uygun olur diye düşünüyorum

Arkadaşımmı abimmi kardeşimi desem bilemedim.
Amacım tartışmak değil sadece konu açmış soru sormuşsunuz ve cevap istemişsiniz bunun içinde örnek dosya gerek.

Alttaki linki bir okuyunuz.
Ben basitçe bir dosya hazırladım dahada gelişebilir.

https://accesstr.net/konu-yeni-konu-acar...enler.html

Private Sub CommandButton1_Click()



Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")

Dim s2 As Worksheet: Set s2 = Sheets("sakla")



    With s2

        With s1

        

        If .Range("A1").Value <> "" Then

            If Me.TextBox1.Value <= WorksheetFunction.Max(.Range("A2:A" & Rows.Count)) Then

                MsgBox "Büyük olamaz", vbCritical, "Hata"

                Me.TextBox1.SetFocus

                Me.TextBox1.BackColor = vbRed

                Exit Sub

            End If

        End If

              .Range("A" & s1.Cells(Rows.Count, 1).End(3).Row + 1).Value = Me.TextBox1.Value

              .Range("B" & s1.Cells(Rows.Count, 1).End(3).Row).Value = Me.TextBox2.Value

        End With

            .Range("A1").Value = Me.TextBox1.Value

            Me.TextBox1.Value = .Range("A1").Value + 1

    End With



    Set s1 = Nothing: Set s2 = Nothing

End Sub





Private Sub UserForm_Initialize()



    If Sheets("sakla").Range("A1").Value <> "" Then

        Me.TextBox1.Value = Sheets("sakla").Range("A1").Value + 1

    Else

      Me.TextBox1.Value = 1

    End If

    

End Sub