sayfa1 den sayfa2 ye aktarma...

[karakayalı]

dosya ekte...yardımlarınızı bekliyorum...

 

[karakayalı]

yardımlarınızı bekliyorum...saygılarımla..

 

[Kemal Demir]

Günaydın,

Ek'teki dosya tam olarak istediğiniz gibi değil ama yinede zannedersem işinizi görebilir.

 

[ozgretmen]

Kemal Demir'in kodlamasındaki grub adlarından aynı olanları aşağıdaki kod ile birer tane yazdırabilirsiniz.

Sub grub_suz()
Dim say, m, n As Integer
k = 1
For x = 2 To Cells(65536, 3).End(xlUp).Row
If WorksheetFunction.CountIf(Range("C2:C" & x), Cells(x, 3)) = 1 Then
k = k + 1
Cells(k, 11).Value = Cells(x, 3).Value
End If
Next x
End Sub

 

[karakayalı]

emeğinize teşekkür ediyorum...çok güzel olmuş...buna ilaveten grupla dediğimde gruba en son atılanın 2 gün süreyle farklı renkte görebilme imkanı varmı...

 

[karakayalı]

syn kemal demir, grubu ve ismi aynı ise (2) telefonu sıralıyor...3-4-5 telefon numarası varsa aynı şekilde sıralayabilirmiyiz...
örneğin
arkadaş ali ak 532111111 542 2221111 559 1111111 gibi..