son dolu satır sorunu hk

[chakistes]

merhaba arkadaşlar userformda commandbutton ile aşağıdaki 1.sıra excelde tek satırı kullanacak 2.sıra son dolu satırdan tek satır kullanacak.
bu şekilde döngü ile yapmak istiyorum yardıma ihtiyacım var.
Son_Dolu_Satir = Sheets("sayfa3").Range("C65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1

'--------------------- 1.SIRA----------------------------------------------------------------
If izindilekcesi.TextBox18.Value Then Sheets("sayfa3").Range("D" & Bos_Satir) = TextBox18
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("C" & Bos_Satir) = TextBox13
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("F" & Bos_Satir) = "İ"
If izindilekcesi.TextBox13.Value Then Sheets("sayfa3").Range("E" & Bos_Satir) = "Veli isteği ile izinli"

'--------------------- 2.SIRA----------------------------------------------------------------
If izindilekcesi.TextBox19.Value Then Sheets("sayfa3").Range("D" & Bos_Satir) = TextBox19
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("C" & Bos_Satir) = TextBox14
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("F" & Bos_Satir) = "İ"
If izindilekcesi.TextBox14.Value Then Sheets("sayfa3").Range("E" & Bos_Satir) = "Veli isteği ile izinli"
Dim del As Control
For Each del In izindilekcesi.Controls

Next del

 

[Ömer BARAN]

Merhaba.

Sorunuz bu haliyle pek anlaşılır olmamış bence.
Sorunuzu; kullanılan userformun, çalışır durumda olmak üzere içerisinde olacağı bir örnek belge üzerinden sorarsanız daha hızlı sonuca ulaşırsınız.
Mevcut kod'un yaptığı işlem ile, olması gereken durumu örneklendirerek açıklayınız.
.

 

[chakistes]

merhaba örnek program koydum

 

[Ömer BARAN]

Ne olması gerekirken ne oluyor?
Hiçbir açıklama yazmamışsınız. Bu durumda nasıl bir öneri bekliyorsunuz acaba?
Mevzu, sadece boş TextBox olduğunda olşan hata mıdır?.

 

[chakistes]

merhaba benim istediğim izin tarihleri ve gün var

textbox kutularında tarih ve gün yan yana devam etmektedir.
1.sıraya tarih ve gün yazdığımda excelde 1.sıraya c1sütun d1 sütun e1 sütun f1 sütuna gelecek
yada 3.sıradan başladım 1 ve 2.sıraya boş bıraksam da
3.sıraya tarih ve gün yazdığımda excelde yene excelde 1.sıraya c1sütun d1 sütun e1 sütun f1 sütuna gelecek
4.sıraya tarih ve gün yazdığımda excelde devamında 2.sıraya yazdım excelde 2.sıraya c2sütun d2 sütun e2 sütun f2 sütuna gelecek
yukarıdan aşağıya boş satıra nereye yazardam excelde son dolu satırdan başlamış olacak

 

[Ömer BARAN]

Kullanılan userform istediğinizi yaptı diyelim. Excel belgesinde oluşacak nihai görüntü nasıl olacak?
OLması gereken hale ilişkin örnek veri yazarken, veriler farklı zamanlarda yazılıyorsa;
zaman farklarını yazılma zamanlarına göre farklı renklendirerek anlaşılır olmasını sağlayabilirsiniz.

Ayrıca userform kodlarının en başında, sayfadaki verilerin tümünün silinmesini sağlayan bir kod satırı var,
silme işlemi de istenilen ir durum mudur acaba?

Yazdığınız cevaptaki C1sütun d1sütun gibi şeyler yazıyorsunuz, bunu da anlamadım.
C1, D1 vs birer hücre adresi sütun kelimesine bir anlam mı yüklüyorsunuz, kastınız C1 hücresine, D1 hücresine midir?
1'inci sıra, 3'ücü sıra nedir? Kastınzı userformdaki nesnelerin yerleştirililme sıraları mıdır?
.

 

[chakistes]

merhaba örnek resimde anlatmaya çalıştım inşallah anlatabilmişimdir.

 

[ottoman005]

Mrb arkadaşlar ustalar son satira gir makrosu buldum sadece 6 sayfada çalıştıramam lazim 14 sayfam var toplamda sorun şu kod istediğim sayfada çalışıyor fakat başka sayfaya girip çıkınca yine ilk satir ilk hucreye dönüyor ben tekrar kod bölümünü gelip Play deyince yine son satir komutu çalışıyor olay şu ki kodu yapıştırdım sayfada son dolu satırın hep altında kalsın istiyorum surekli yeni veri giriyorum klavye yada kısa yol tuşu kullanarak son dolu satırın bir altına geçmek eziyet oluyor ziyaretçi kaydi yaptigim sayfama girince ilksatir ilk hucreye gidiyor surekli makro kodu buldum yapıştırdım çalışıyor ok ama araç takibi yaptigim diger sayfaya girip çıkınca tekrar ziyaretci kaydi yaptigim sayfanin1.satir 1 hucreye gidiyor

 

[Korhan Ayhan]

Merhaba,

Örnek dosyanızı paylaşarak yapmak istediğiniz işlemi açıklarsanız ona göre çözüm önerilebilir.

 

[ottoman005]

Sub leere_zelle()
[B1].Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("B1").Select
End Sub

Sub zahl_suchen()
leere_Zeile = Range("B" & Rows.Count).End(xlUp).Row + 1
For i = 1 To leere_Zeile
Range("B" & i).Select
If ActiveCell = 5 Then Exit Sub
Next i
End Sub

 

[ottoman005]

Kullandığım kod bu benim sayfamda a sutunu kullanmıyorum b sutunu son dolu satir bir altından başlayacak ki veri girmeye başlayım

 

[Korhan Ayhan]

Aşağıdaki kodu çalışmanızda ThisWorkbook bölümüne uygulayınız..

"Sheet1" yazan yere kendi dosyanıza göre bu işlemi yapmak istediğiniz sayfa adını yazınız.

Bu kod dosya açılışında çalışacaktır.

Option Explicit

Private Sub Workbook_Open()
    Sheets("Sheet1").Select
    Cells(Rows.Count, "B").End(3).Offset(1).Select
End Sub

Aşağıdaki kodu işlemi yapacağınız sayfanızın kod bölümüne uygulayınız.

Bu kod sayfa aktif olduğunda çalışacaktır.

Option Explicit

Private Sub Worksheet_Activate()
    Cells(Rows.Count, "B").End(3).Offset(1).Select
End Sub

 

[ottoman005]

Verdigin makro mukemmel oldu allah binkere razi olsun senden 50 yaşındayım sizin gibilerde olmasa ortada kalacağız vallahi eline koluna sağlık coook sagolun Allah razı olsun cevap gelirse e topla makrosu nasil yapilir surekli e topla formulunu yanlışlıkla siliyorum hucre korumaya alıyorum bu kezde veri doğrulama sorun cikariyor sorum şu j 13, j 60 arasi sütununa girdiğim verileri alt alta toplayacak sonucu D9 a toplama sonucunu yazacak devamında ise çıkartma işlemim var =(D6-D7) sonucunu D 8 e yazacak
=(D8-D9) sonucunu ise D 10 yazacak bunuda çözereksek demeyin keyfime gözler sıkıntılı olmasa sıfırdan makro öğrendim geliyor sizlerin sayesinde emeği geçen herkezlere teşekkürler

 

[Korhan Ayhan]

Rica ederim. Allah sizden de razı olsun.

Farklı sorularınız için farklı başlıklar açmanız gerekiyor. Yoksa konular birbirine girecektir.

 

[ottoman005]

Rica ederim. Allah sizden de razı olsun.

Farklı sorularınız için farklı başlıklar açmanız gerekiyor. Yoksa konular birbirine girecektir.

Tamam Korhan bey teşekkürler