[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.