Range("A1":"A10").Select

[ahmethasim]

Merhaba arkadaşlar

A1 A3 A5 A7 A9 hücrelerinde formüller var

Range("A1":"A10").Select
Sonra da içinde değer olmayan hücreleri seçimden çıkartıp bu formüllerin değerlerini (formülleri değil) ardarda başka bir kolona kopyalamak istiyorum.

Bunu kod ile nasıl yapabiliriz?

Teşekkürler

İyi çalışmalar

 

[Necdet]

Merhaba,

Aşağıdaki örnek A1:A10 arasında dolu olan hücreleri C sütununa aktarır. Umarım yararlı olur.

Sub Makro1()
Dim i As Long
Dim hücre As Range
For Each hücre In Range("A1:A10")
    If hücre <> "" Then
        i = i + 1
        Cells(i, "C") = hücre.Value
    End If
Next hücre
End Sub

 

[ahmethasim]

Teşekkür ederim hocam elinize sağlık