Soru Aktif Satırdaki Son Dolu Sütuna Gitmek

[Metin_S]

İlk hücre için offset kısmını kullanmadan dener misiniz?

Range("A" & ListBox1.ListIndex + 1)= TextBox11.Value

Kod yazımında bir hata görünmüyor.

Aslında hatayı ikinci hücre için veriyor hatada şu şekilde. İlk hücre için her iki türlü de oluyor.

Run-time error '1004': Method 'Range' of object' _Global' failed

 

[YUSUF44]

Verdiğiniz bilgilerle çözüme ulaşamıyorum maalesef. Örnek dosya olursa belki anlayabilirim.

 

[Orion1]

Fazla kafa karıştırmadan,hücre seçmeden yazılacak değer aşağıdaki gibi olabilir.
Örneğin A1 hücresine veri girilecek;

Range("A1").value = "Test"

 

[Metin_S]

Fazla kafa karıştırmadan,hücre seçmeden yazılacak değer aşağıdaki gibi olabilir.
Örneğin A1 hücresine veri girilecek;

Range("A1").value = "Test"

Merhaba bilgi yazılacak yer sabit değil değişken olduğu için direk o şekilde yapamıyoruz maalesef.

 

[Metin_S]

Verdiğiniz bilgilerle çözüme ulaşamıyorum maalesef. Örnek dosya olursa belki anlayabilirim.

Örnek dosya hazırlayacağım ilgi ve yardımınız için teşekkür ederim.

 

[Orion1]

Merhaba bilgi yazılacak yer sabit değil değişken olduğu için direk o şekilde yapamıyoruz maalesef.

Değişken için ise A1 hücresine aşağıdaki gibi seçmeden yapılabilir.

sat = 1
sut=1
cells(sat,sut).value = "Test"

 

[Metin_S]

Verdiğiniz bilgilerle çözüme ulaşamıyorum maalesef. Örnek dosya olursa belki anlayabilirim.

Yusuf bey merhaba, örnek dosyayı google drive yükledim linki aşağıdadır. Şimdiden teşekkür ederim.

Google Drive: Sign-in

Access Google Drive with a Google account (for personal use) or Google Workspace account (for business use).

drive.google.com

Sorunu da anlatayım. 2 ayrı butonla yaptığımı tek buton ile yapmak istiyorum ama hata veriyor. İlk hücrenin bilgisi değişiyor sorun yok fakat ikinci hücrenin bilgisi ya değişmiyor yada hata veriyor.

 

[Metin_S]

Değişken için ise A1 hücresine aşağıdaki gibi seçmeden yapılabilir.

sat = 1
sut=1
cells(sat,sut).value = "Test"

Merhaba, değişecek bilgiye ait satırı listbox üzerinden seçtiğimiz için sanırım bu şekilde olmaz yada ben bilmiyorum. #27 numaralı mesajda örnek dosya ekledim bakmak isterseniz. Teşekkürler.

 

[Orion1]

Merhaba, değişecek bilgiye ait satırı listbox üzerinden seçtiğimiz için sanırım bu şekilde olmaz yada ben bilmiyorum. #27 numaralı mesajda örnek dosya ekledim bakmak isterseniz. Teşekkürler.

Olur,olur.
Dosyanızı indiremedim.Başka bir siteye yüklerseniz bakabilirim.

 

[Metin_S]

Olur,olur.
Dosyanızı indiremedim.Başka bir siteye yüklerseniz bakabilirim.

Buyrun https://s6.dosya.tc/server4/iv4up4/Kitap1.rar.html

 

[Orion1]

Buyurun.

Private Sub CommandButton3_Click()
Dim i As Byte, sat As Integer
If TextBox2.Value = "" Then
MsgBox "Düzenlenecek satırı seçiniz"
Exit Sub: End If
sat = ListBox1.ListIndex + 1
ListBox1.RowSource = ""
For i = 1 To 6
    Cells(sat, i).Value = Me.Controls("TextBox" & i)
    MsgBox Me.Controls("TextBox" & i)
Next i
Cells(sat, "B").Value = CDbl(TextBox2.Value)
ListBox1.RowSource = "Sayfa1!A1:F" & Range("b65536").End(3).Row + 1

End Sub

 

[Metin_S]

Buyurun.

Private Sub CommandButton3_Click()
Dim i As Byte, sat As Integer
If TextBox2.Value = "" Then
MsgBox "Düzenlenecek satırı seçiniz"
Exit Sub: End If
sat = ListBox1.ListIndex + 1
ListBox1.RowSource = ""
For i = 1 To 6
    Cells(sat, i).Value = Me.Controls("TextBox" & i)
    MsgBox Me.Controls("TextBox" & i)
Next i
Cells(sat, "B").Value = CDbl(TextBox2.Value)
ListBox1.RowSource = "Sayfa1!A1:F" & Range("b65536").End(3).Row + 1

End Sub

Üstadım elinize sağlık tam istediğim gibi olmuş. Teşekkür ederim.