DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub deneme()
i = 5
Do While Cells(i, 5) <> ""
Cells(i, 8).Formula = Right(Cells(i, 5), 10)
i = i + 1
Loop
Cells(4, 8).Value = "geçicibaşlık"
Range("H4:H1000").Select
Range("H4:H1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"H4:H1000"), CopyToRange:=Range("K4"), Unique:=True
Columns("K:K").ColumnWidth = 16
End Sub
Anlayamadım, yukarıdakini bana hitaben mi yazdınız ?Cavus' Alıntı:Çok teşekkür ederim. ben makro bilmiyorum, size zahmet olacak ama
müsait olduğunuz bir zamanda benim gönderdiğim örnek tablada bunu yazabilirmisiniz.
Ãimdiden teşekkürler.