Soru Dolu satır kadar textbox değerini sütuna aktarmak

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
GİRİŞ sayfası A sütununda 5. satırdan itibaren sıra numarası var.
Textbox10 da bulunan sayıyı G sütununa "A sütununda ki sıra numarası kadar" G5 ten itibaren kaydedebilmek için yardımcı olabilir misiniz?
Teşekkür ederim.
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Yanlış anlamadıysam eğer,
Giriş sayfası A sütunundaki son sıra numarasına göre TextBox10 daki sayıyı G5 hücresinden itibaren hücreye aktaran kod örneği.
Kod:
Private Sub CommandButton1_Click()
Dim s1 As Worksheet, sNo As Long, i As Long
Set s1 = Sheets("Giriş")

sNo = s1.Range("A" & Rows.Count).End(3).Value

For i = 5 To 4 + sNo
    s1.Cells(i, "G").Value = TextBox10.Value
Next i

Set s1 = Nothing
sNo = 0: i = 0
End Sub
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Allah işini rast getire sağ ol
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Amin cümlemizin işi rast gitsin inşallah.
 
Üst