Değişken veri alma

[sert_unsuz]

Merhaba.
Yardımcı olmanızı istediğim dosya ektedir.
Şimdiden teşekkür ederim.

 

[İhsan Tank]

Merhaba.
Yardımcı olmanızı istediğim dosya ektedir.
Şimdiden teşekkür ederim.

merhaba
sorularınızı konunun içindede açıklarsanız çok iyi olur
boş bir module kopyalayın ve deneyin.

Option Explicit
Sub kısımlı_aktar()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("10 ve 30 Olan Verileri Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
kaplan = 2
Sheets("Sayfa2").Range("A2:A65536").ClearContents
For ts = 2 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
If Sheets("Sayfa1").Cells(ts, "A") = 10 Or _
Sheets("Sayfa1").Cells(ts, "A") = 30 Then
Sheets("Sayfa2").Cells(kaplan, "A") = Sheets("Sayfa1").Cells(ts, "B")
kaplan = kaplan + 1
End If
Next
MsgBox "10 ve 30 Olan Veriler Aktarıldı", vbInformation, "Bitiş"
End Sub

 

[sert_unsuz]

Çok teşekkür ederim.

 

[İhsan Tank]

Çok teşekkür ederim.

rica ederim
:yazici: