Ü
Üye silindi 452321
Misafir
arkadaslar selamlar
aşağıdaki kodda eger bırlestır = bırlestır2 ye esıtte dıger sayfaya ılgılı alanı kopyala ve yınelenenı kaldır demek ıstıyorum eger degılse kopyalama yapma demek ıstıyorum ama olmuyor nereyı atlıyor olabılırım?
Sub Remove_Duplication()
Set Fatura_No = Worksheets("DATA").Cells(i, 5).Value
Set Departman_Kodu = Worksheets("DATA").Cells(i, 29).Value
Set BIRLESTIR = Fatura_No & Departman_Kodu
Set BIRLESTIR2 = Fatura_No & Departman_Kodu
If BIRLESTIR = BIRLESTIR2 Then
Worksheets("DATA").Range("E:E").Copy Worksheets("RESULT").Range("A1")
Worksheets("RESULT").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End If
End Sub
aşağıdaki kodda eger bırlestır = bırlestır2 ye esıtte dıger sayfaya ılgılı alanı kopyala ve yınelenenı kaldır demek ıstıyorum eger degılse kopyalama yapma demek ıstıyorum ama olmuyor nereyı atlıyor olabılırım?
Sub Remove_Duplication()
Set Fatura_No = Worksheets("DATA").Cells(i, 5).Value
Set Departman_Kodu = Worksheets("DATA").Cells(i, 29).Value
Set BIRLESTIR = Fatura_No & Departman_Kodu
Set BIRLESTIR2 = Fatura_No & Departman_Kodu
If BIRLESTIR = BIRLESTIR2 Then
Worksheets("DATA").Range("E:E").Copy Worksheets("RESULT").Range("A1")
Worksheets("RESULT").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End If
End Sub