Kopyalandı mesajı

[ASLAN7410]

Merhaba hayırlı geceler.

Ekteki excel dosyamın Sayfa1'de B2 hücresinden aşağıya doğru aralıklarla isimler var,
butona bastığımda dolu hücrelerdeki isimleri kopyalıyorum, kopyalandığında örneğin 5 isim
kopyalandı mesajının vermesini istiyorum.

Yardımcı olur musunuz?

Sub SütunKopyala()
On Error Resume Next
Range("B2:B100000").SpecialCells(xlCellTypeConstants, 23).Copy
MsgBox " isim koplandı", vbInformation, "BİLGİ"
End Sub

.

 

[Orion1]

Buyurun.

Sub SütunKopyala()
[B][COLOR="Red"]Dim say As Long[/COLOR][/B]
On Error Resume Next
Range("B2:B100000").SpecialCells(xlCellTypeConstants, 23).Copy
[B][COLOR="red"]say = WorksheetFunction.CountA(Range("B2:B100000"))[/COLOR][/B]
MsgBox [B][COLOR="Red"]say[/COLOR][/B] & " isim koplandı", vbInformation, "BİLGİ"
End Sub

 

[ASLAN7410]

Sayın Evren Bey, valla çok süper oldu, çok teşekkür ediyorum.

Hayırlı geceler, hayırlı çalışmalar diliyorum.

 

[Orion1]

Sayın Evren Bey, valla çok süper oldu, çok teşekkür ediyorum.

Hayırlı geceler, hayırlı çalışmalar diliyorum.

Alternatif.

Sub SütunKopyala()
[B][COLOR="Red"]Dim say As Long[/COLOR][/B]
On Error Resume Next
[B][COLOR="red"]say = Range("B2:B100000").SpecialCells(xlCellTypeConstants, 23).Count[/COLOR][/B]
Range("B2:B100000").SpecialCells(xlCellTypeConstants, 23).Copy
MsgBox [B][COLOR="red"]say[/COLOR][/B] & " isim koplandı", vbInformation, "BİLGİ"
End Sub

 

[ASLAN7410]

Sayın Evren Bey, alternatif olarak gönderdiğiniz kod'da güzel çalışıyor.

Çok teşekkür ediyorum.

 

[Orion1]

Sayın Evren Bey, alternatif olarak gönderdiğiniz kod'da güzel çalışıyor.

Çok teşekkür ediyorum.

Rica ederim.
İyi çalışmalar.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

On Error Resume Next
Range("B2:B100000").SpecialCells(xlCellTypeConstants, 23).Copy
a = Application.WorksheetFunction.CountA([b2:b100000])
MsgBox a & " " & " isim koplandı", vbInformation, "BİLGİ"

 

[ASLAN7410]

Sayın Seyit Bey, alternatif olarak gönderdiğiniz kodlarda gayet güzel çalışıyor.

Size de çok teşekkür ediyorum, hayırlı geceler, hayırlı çalışmalar diliyorum.