Texbox seçili sayfadaki ilgili satırlara kayıt yapmak istiyorum

[tufan18]

değerli hocalarım texbox ta seçmiş olduğum sayfanın ilgili satırlarına kayıt yapmak istiyorum sizden ricam kodlarda yardım istiyorum

 

[tufan18]

Private Sub CommandButton3_Click()
Sheets("JANTSAVERİ").Range("L15").Value = DTPicker1
Sheets("JANTSAVERİ").Range("P15").Value = TXTtutar.Text
End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub CommandButton5_Click()
Unload Me
Anaform.Show
End Sub

Private Sub LstSayfalar_Click()
Sheets(LstSayfalar.ListIndex + 1).Select
End Sub

Private Sub UserForm_Initialize()
Me.DTPicker1.Value = Format(Date, "dd.mm.yyyy")
Dim x As Integer
For x = 1 To Sheets.Count
LstSayfalar.AddItem (Sheets(x).Name)
Next
End Sub

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Private Sub CommandButton3_Click()
ActiveSheet.Range("L15").Value = DTPicker1
ActiveSheet.Range("P15").Value = TXTtutar.Text
End Sub

 

[tufan18]

hocam teşekkür ederim sorunum çözüldü yalnız şöyle bir sıkıtım doğdu L15 yazdırdım bir sonraki kayıtta üstüne yazıyor istiyorumki L15 L16 L17 L26 ya kadar alt alta yazsın bunu yapma şansımız varmı rica etsem

 

[ÖmerBey]

Buyurunuz...
L sütunundaki son boşluğa göre işlem yapar.

Private Sub CommandButton3_Click()
s = ActiveSheet.Cells(Rows.Count, "L").End(3).Row + 1
ActiveSheet.Range("L" & s).Value = DTPicker1
ActiveSheet.Range("P" & s).Value = TXTtutar.Text
End Sub

 

[tufan18]

hocam emeğine sağlık çok teşekkür ederim

 

[tufan18]

hocam özür dileyerek bir sorun oluştu L15 Ve P15 hücresinde veri olduğunda bir alt satıra iniyor ve kayıt yapıyor yalnız bu satırlar boş ise L15 Ve P15 kayıt yapmıyor

 

[tufan18]

 

[tufan18]

hocam yukarıda yazmışsınız şimdi gördüm L sütunundaki son boşulğa göre işlem yapar demişsiniz peki L satırı boş ise napmamız lazım

 

[ÖmerBey]

Birleştirilmiş hücre kullandığınızdan dolayı doğru sonuç alamıyorsunuz sanırım. Geçici olarak şu şekilde bir çözüm sunabilirim sanıyorum.

Private Sub CommandButton3_Click()
s = ActiveSheet.Cells(Rows.Count, "L").End(3).Row + 1
If s < 15 Then s = 15
ActiveSheet.Range("L" & s).Value = DTPicker1
ActiveSheet.Range("P" & s).Value = TXTtutar.Text
End Sub

 

[tufan18]

hocam doğru söylüyorsunuz birleştirilmiş hücreler var ama yazmış olduğunuz kodla çözüldü sorunum çok teşekkür ederim