Soru Find Sütun Sütun Numarasını kullanmak

[ywzyilmaz]

Merhaba

Altaki kod ile 1.satırda arama yapıp aradığım değerin bulundupu sütunun numarasına ulaşıyorum fakat bu sütünün boş olan son satırına veri yazdırırken hata alıyorum.

Kodlarım bunlar

Private Sub CommandButton1_Click()
Dim c As Range, b As Range
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("urun")
    Set s2 = Sheets("anaformul")
    sonsatir = s2.Range("A" & Rows.Count).End(xlUp).Row + 1
    Set c = s2.Range("1:1").Find(ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
         s2.Range(c.Column & sonsatir) = TextBox7.Text
    Else
        MsgBox "Pigment Bulunamadı"
        Exit Sub
    End If
End Sub

Hata aldığım satır ise bu

s2.Range(c.column & sonsatir) = TextBox7.Text


Nerede hata yapıyorum?

Yardımcı olabilir misiniz?

 

[dEdE]

Merhaba,
Mevcut kodunuzdaki hata veren s2.Range(sutun & sonsatir) = TextBox7.Text satırını s2.Cells(sonsatir, c.Column) = TextBox7.Text
ile değiştirerek dener misiniz?

 

[Muzaffer Ali]

Merhaba.
Hatalı satırı aşağıdaki gibi yapın

s2.cells(sonsatir, c.column) = TextBox7.Text

 

[ywzyilmaz]

Evet sorun düzeldi.
range ile cells yazmam arasındaki fark nedir burada? mantığını anlamaya çalışıyorum.

 

[Muzaffer Ali]

Satır ve sütun belirtme şekli farklıdır.
Aşağıdakilerin hepsi A1 hücresini ifade eder.

cells(1, 1)
cells(1, "A")
Range ("A1")
[A1]