Yanyana Olan Verileri Alt Alta Dizmek

[baydeniro]

Merhaba arkadaşlar. Yanyana olan yani E1 hücresinden başlayarak Z126 hücresinde biten verileri, D kolonunda tek sıra halinde toplamak mümkün mü ? Yani Verileri D kolonunda aşağıya doğru ilk boş hücreye yerleştir komutu nasıl yazılır ?

 

[hamitcan]

Örnek bir dosya ekleyin.Ve verilerin nasıl görünmesi gerektiğini belirtin.

 

[baydeniro]

Merhaba hamitcan. Dosya ekte.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub KAYDIR()
For Each hucre In [e1:z126]
If hucre = "" Then GoTo git
c = c + 1
Sayfa2.Cells(c, "d") = hucre
git:
Next
End Sub

 

[baydeniro]

Sayın hamitcan yardımınız için çok teşekkürler. Makro şu aşamada duruyor :

Sayfa2.Cells(c, "d") = hucre

 

[hamitcan]

Bir de eki inceleyin.

 

[baydeniro]

Çok Teşekkürler

Sayın hamitcan ilginiz ve sabrınız için çok teşekkürler. Şimdi çok güzel oldu. Elleriniz dert görmesin, sağlıcakla kalın. Çok çok teşekkürler.