Bayağı birşeyler yazmışsınız kod olarak lakin ortalıkta örnek dosya yok

Mesajınızın birinde yazdığınız yanlış değilsem her kayıtta bir artarak başka yerde saklanması banada mantıklı geldi.

örnek dosya yok ama örnek kod var
başka yerde saklanması derken sayfa adında saklıyorum çünkü hücrede saklamak mantıklı değil 
en azından bana mantıklı gelmiyor

yazdığım kodları "Bayağı" olarak değerlendirmenizde hiç hoş olmadı

(14/01/2020, 11:49)accessman yazdı: yazdığım kodları "Bayağı" olarak değerlendirmenizde hiç hoş olmadı

Üstad bayağı derken oldukça çok manasında demek istemiştim siz yazınca heralde basit olarak anladınız.


Örnek dosya devlet sırrımı.Hem yardım istiyorsunuz hem dosya yok.

Ben bari kısaca hazırlayayım sizin için örnek olsun diye.

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

(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