textboxtan hücreye veri aktarma(olmuyor...)

[zeliha]

Arkadaşlar sorum ekli dosyada.Teşekkür ederim.

 

[ahmet79]

gönder adlı butonunuza aşağıdaki kodu yazın sayfa1'de a6 hücresine textboxa yazdığınız veriyi yazar


Sheets("sayfa1").[a6] = TextBox1.Value

 

[programer]

Bi bakarsan

ben denedim oluyo

 

[zeliha]

Ben denedim olmadı.ikinci satırda hata veriyor.

 

[danersin]

Bu şekilde bir deneyin.

[vb:1:61b1c633bc]Private Sub CommandButton1_Click()
For i = 2 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 1) = TextBox1.Value Then
For k = 2 To Cells(i, 255).End(xlToLeft).Row + 1
Sheets(2).Cells(1, k - 1) = Cells(i, k)
Next k
Exit For
End If
Next i
End Sub[/vb:1:61b1c633bc]

 

[rusendemir]

Birde bu şekilde denermisin.

 

[rusendemir]

Þunuda söylemek istiyorum.Bilgisayarına dosyayı kaydedip öyle makroları çalıştırmayı denemelisin.Aç diyip makroları çalıştırırsan hata veriyor.