Üstteki dolu satırı alttaki boş satıra nasıl kopyalarım?

[akrepfatih]

Başlık biraz ilginç oldu ama kusura bakmayın
Bende tam ne aradığımı burada bilmiyorum neyse sadet e geleyim.

A1 ayşe
A5 fatma
A40 ali
A100 veli


a1 deki ayşeyi a2,a3,a4
a5 deki fatmayı a6,a7,a8,a9,a10,................
kopyalamak istiyorum

44805 satır ile uğraşıyorum lütfen mantıklı cevap verin

Cevaplar için şimdiden TAŞEKKÜRLER.

 

[merken]

b1 = a1
b2 = if(a2="";b1;a2) yazip asagiya kadar cekin

kolay gelsin.

 

[Skorpiyon]

Sayın akrepfatih,

Aşağıdaki dosyayı inceleyiniz. Dilerim işinizi görür.

Saygılarımla...

 

[akrepfatih]

MERKEN istediğim şey olmuyor dostum hata veriyor

 

[Skorpiyon]

Bu cevabınız kime ?

 

[Skorpiyon]

Ve örnek küçük bir dosya eklerseniz, üzerinde işlem yaparak daha faydalı olabiliriz.

Saygılarımla...

 

[akrepfatih]

burayı tıkla yazdığın yere tıklıyorum ama

Güvenlik seviyesi yüksek olğuğu ve makrolar sayısal olarak imzalanmadığı veya güvenli olduklarından emin olunmadığı için bu çalışma kitabındaki makrolar devre dışı bırakıldı.diyor

Bendeki dosyayı size yollayım siz değiştirip tekrar yollasanız olur mu ?

 

[Skorpiyon]

Olur, önce aşağıdakini bir deneyin.

Araçlar - Makra - Güvenlik Seviyesini Düşük olarak ayarlayınız.
Makrolar başka türlü çalışmaz.

Saygılarımla...

 

[Seyit Tiken]

Ekli dosyayı inceleyip kendinize uyarlayınız.

Sub Düğme1_Tıklat()
If [z1] = 1 Then
[a4:a2] = [a1]: [a6:a39] = [a5]: [a41:a99] = [a40]
[z1] = 2
Else
[a4:a2] = Empty: [a6:a39] = Empty: [a41:a99] = Empty
[z1] = 1
End If
End Sub

 

[merken]

MERKEN istediğim şey olmuyor dostum hata veriyor

ne tür bir hata?
ek'i inceleyin.

 

[akrepfatih]

Yardım eden bütün arkadaşlara TEŞEKKÜRLER 4 saattir uğraşıyordum. Keske baştan buraya girseydim 5 dakkika sürmedi sorunumu çözmem.

HERKESE TEKRAR TEKRAR TEŞEKKÜRLER
SAĞOLUN