dolu hücre kopyalamak

[memduh]

Arkadaşlar C1:C100 arasıdaki sadece dolu hücreleri Lsutununa aktaran makro varmı?


_______________
Excel 2003 Türkçe

 

[veyselemre]

eki inceleyin

 

[unur]

Merhabalar,
Böyle bir soru sorulmuş ama cevabını bulamadım.
Aynı şekilde A1 den B1000 e kadar olan dolu satırları başka bir satıra yapıştırmak istiyorum makro ile. tabi bu doluluk oranı sayfalara göre değiştiği için böyle bir şeye ihtiyaç duydum.
Şimdiden yardımcı olacak arkadaşlara teşekkürler

 

[Ayhan Ercan]

kendinize göre uyarlayın....

Sub test()
aaa = Sheets("Sayfa1").[b65536].End(3).Row
Sheets("Sayfa1").Range("a1:b" & aaa).Copy
[e1].Select
Paste
Application.CutCopyMode = False
End Sub

 

[Seyit Tiken]

Örnek kodu kendinize uyarlayın.

Sub Düğme1_Tıklat()
[a1:a30].SpecialCells(2, 23).Copy [c1]
End Sub

 

[unur]

Teşekkürler Ayhan Bey.

 

[Orion1]

A1:B1000 aralığındak dolu hücreleri C1 den başlayarak aşağı doğru listeler.
Aşağıdaki kodalrı deneyiniz.

Sub dolu_satirlar()
Dim hcr As Range, a As Integer
Range("C1:C2000").ClearContents
ReDim myarr(1 To 1, 1 To 1)
For Each hcr In Range("A1:B1000")
    If hcr.Value <> "" Then
        a = a + 1
        ReDim Preserve myarr(1 To 1, 1 To a)
        myarr(1, a) = hcr.Value
    End If
Next hcr
Application.ScreenUpdating = False
If a > 0 Then [C1].Resize(a, 1) = Application.Transpose(myarr)
Application.ScreenUpdating = True
Erase myarr
MsgBox "C sütununa A ve B sütunundaki ilk 1000 dolu hücre C sütunna listelendi"
End Sub

 

[Ayhan Ercan]

Örnek kodu kendinize uyarlayın.

Sub Düğme1_Tıklat()
[a1:a30].SpecialCells(2, 23).Copy [c1]
End Sub

@Seyit Tiken hocam
öğrenmeye hevesli biri olarak müsaadeleriniz sınırlarında bişey sormak istiyorum..

kodda; SpecialCells den sonra parantez içerisindeki 2 ve 23 rakamları neyi ifade ediyor?

kodu tam olarak anlatabilirmisiniz?? teşekkür ederim..

 

[Seyit Tiken]

Ayhan Bey, kusura bakmayın, biraz gecikmeli bir cevap olacak. Siteye girmeyi yeni fırsat buldum. F5'in Makro Kaydetme yöntemidir. Burda, kod içinde metin yerine sayısal değer kullanılıp kodlarda kısaltma yolluna gidilmiş. Grup ve alt grupların sayısal bir sıralanışı vardır.