Selamlar,
Excell 2013'de kullanmak istediğimde "Type Mismatch" 13 nolu hatayı alıyorum.
Yardımcı olabilir misiniz ?
Option Explicit
Sub VERİLERİ_TEKRARLI_LİSTELE()
Dim X As Integer, Satır As Long
Columns(4).ClearContents
Satır = 1
For X = 1 To Range("A65536").End(3).Row
Range("D" & Satır & "" & Satır + Cells(X, "B") - 1) = Cells(X, "A")
Satır = Range("D65536").End(3).Row + 1
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Yok mu yardımcı olabilecek biri ?
Son düzenleme: