• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Aktif Satırdaki Son Dolu Sütuna Gitmek

İ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
 
Verdiğiniz bilgilerle çözüme ulaşamıyorum maalesef. Örnek dosya olursa belki anlayabilirim.
 
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;
Kod:
Range("A1").value = "Test"
Kod:
 
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;
Kod:
Range("A1").value = "Test"
Kod:
Merhaba bilgi yazılacak yer sabit değil değişken olduğu için direk o şekilde yapamıyoruz maalesef.
 
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.
Kod:
sat = 1
sut=1
cells(sat,sut).value = "Test"
 
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.


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.
 
Değişken için ise A1 hücresine aşağıdaki gibi seçmeden yapılabilir.
Kod:
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.
 
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.
 
Buyurun.
Kod:
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
 
Buyurun.
Kod:
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.
 
Geri
Üst