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