Anasayfadaki Verilerin Dökümü

[hakki83]

Merhaba

Örnek dosyadaki Rapor sayfasındaki K sütununa (ilk satır başlık),
Anasayfa’daki B2:AF10000 alanındaki tüm hücre içi verilerin dökümünü alabilir miyiz?
(Boşluk, nokta, virgül vs dahil ne varsa)

Teşekkürler.

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()

Dim Hcr As Range, _
    lr  As Long, _
    lc  As Integer, _
    i   As Long
    
    i = 2
    lr = Sayfa2.Cells(Rows.Count, "A").End(3).Row
    lc = Sayfa2.Cells(1, Columns.Count).End(1).Column
    
    For Each Hcr In Sayfa2.Range(Sayfa2.Cells(2, 2), Sayfa2.Cells(lr, lc)).SpecialCells(xlCellTypeConstants, 23)
        Sayfa1.Cells(i, "K") = Hcr.Value
        i = i + 1
    Next Hcr
    
End Sub

 

[hakki83]

Necdet hocam çok güzel olmuş, emeğinize sağlık.

Bir de ayrı bir butona ayrı bir kod olarak, mesela L sütununa, bu verilerin adreslerini döktürebilir miyiz?

$B$2
$C$27
şeklinde.

 

[AdemCan]

Merhaba, aynı kod ile yapabilirsiniz.
Sayfa1.Cells(i, "K") = Hcr.Value satırından sonra ekleyiniz.

Sayfa1.Cells(i, "L") = Hcr.Address

 

[hakki83]

AdemCan hocam çok teşekkürler
Bilgisayara geçince hemen deneyeceğim.

 

[hakki83]

Merhaba, aynı kod ile yapabilirsiniz.
Sayfa1.Cells(i, "K") = Hcr.Value satırından sonra ekleyiniz.

Sayfa1.Cells(i, "L") = Hcr.Address

AdemCan hocam olmuştur sağ olunuz

 

[AdemCan]

Rica ederim.

 

[hakki83]

Merhaba,

Private Sub CommandButton1_Click()

Dim Hcr As Range, _
    lr  As Long, _
    lc  As Integer, _
    i   As Long
   
    i = 2
    lr = Sayfa2.Cells(Rows.Count, "A").End(3).Row
    lc = Sayfa2.Cells(1, Columns.Count).End(1).Column
   
    For Each Hcr In Sayfa2.Range(Sayfa2.Cells(2, 2), Sayfa2.Cells(lr, lc)).SpecialCells(xlCellTypeConstants, 23)
        Sayfa1.Cells(i, "K") = Hcr.Value
        i = i + 1
    Next Hcr
   
End Sub

Necdet hocam merhaba
Kodda geçen 23 sayısının anlamı nedir?

Şöyle enteresan bir şey oldu, dosyayı kodları incelerken, 23 sayısı gözüme çarptı.

Örnekteki AF sütunu da 32 sütun oluyor.
Dedim galiba Necdet hocam 32 yerine yanlışlıkla 23 yazdı.

23’ü 32 olarak değiştirdim ve kod çalışmadı. Tekrar 23 yapınca çalıştı.
Bundan dolayı merak ettim.

 

[Korhan Ayhan]

SpecialCells komutu excel sayfasındaki F5-Özel menüsündeki hücre seçimlerinin karşılığıdır. 23 sayısıda oradaki seçeneklere ait parametrik bir değerdir.

Öneride kullanılan parametrenin karşılığı ise görseldeki seçeneklerdir.