akaryakıt hesaplama yardım (if döngüsü ile)

[cabartay]

Combobox da aracı seçtiğim zaman "VERILER" sayfasından plakaya ait verileri, diğer "DENEME" sayfasına aktarmasını başaramadım. Eğer verileri diğer sayfaya atarsamm hesaplama yaptırabileceğim. Teşekkür ederim.

[tasad]

Kod: Tümünü seç

Private Sub CommandButton1_Click()

Dim x As Long
Dim last As Long

last = Sheets("VERILER").Range("A" & Rows.Count).End(xlUp).Row

For x = 2 To last

If Sheets("VERILER").Cells(x, 2).Text = UserForm1.complaka.Text Then

 Sheets("VERILER").Range("a" & x & ":h" & x).Copy
 Sheets("DENEME").Cells(Rows.Count, 1).End(3)(2, 1).PasteSpecial

End If

Next

End Sub

[cabartay]

Çok teşekkür ediyorum, yazamadığım, internette arayıp bulamadığım kod bu idi.