Değişken sayısına göre hücre öteleme!

[moonty]

Merhabalar,

Arkadaşlar bir sorunum var.Yardım ederseniz sevinirim.

A1 B1 C1 D1 E1....hücresinde sayılar var.
A2 B2 C2 D2 E2.... hücrelerinde de metinler var.(Örneğin AYŞE)

Ben A sütununda A4 ten itibaren aşağıya doğru, A1 hücresindeki sayı kadar A2 değeri,onu takiben B1 hücresindeki sayı kadar B2 değeri....gibi bir makro bulmam gerek.

Mesela A1 de 6 ve A2 de de AYŞE yazıyorsa; A4 A5 A6 A7 A8 A9 Hücrelerinde AYŞE yazmalı,
B1 de 19 ve B2 de VELİ yazıyorsa; B4 B5 B6..........B23 hücrelerinde VELİ yazmalı.

A1 değeri 6 dan 5 'e inerse, 6. satırdaki ayşe ortadan kalkacağından AYŞE lerin altındaki hücrelerdeki değerler bir üst satıra da kaymalı; yani arada boşluk kalmamalı.

Biliyorum zor ama yardımcı olursanız sevinirim.Çok teşekkür ederim.İnşallah acil yardım eden bir arkadaş bulunur.

 

[moonty]

Otomatik Hücre öteleme...

Merhabalar,

Arkadaşlar bir sorunum var.Yardım ederseniz sevinirim.

A1 B1 C1 D1 E1....hücresinde sayılar var.
A2 B2 C2 D2 E2.... hücrelerinde de metinler var.(Örneğin AYŞE)

Ben A sütununda A4 ten itibaren aşağıya doğru, A1 hücresindeki sayı kadar A2 değeri,onu takiben B1 hücresindeki sayı kadar B2 değeri....gibi bir makro bulmam gerek.

Mesela A1 de 6 ve A2 de de AYŞE yazıyorsa; A4 A5 A6 A7 A8 A9 Hücrelerinde AYŞE yazmalı,
B1 de 19 ve B2 de VELİ yazıyorsa; B4 B5 B6..........B23 hücrelerinde VELİ yazmalı.

A1 değeri 6 dan 5'e inerse, 6. satırdaki ayşe ortadan kalkacağından AYŞE lerin altındaki hücrelerdeki değerler bir üst satıra da kaymalı; yani arada boşluk kalmamalı.

Biliyorum zor ama yardımcı olursanız sevinirim.Çok teşekkür ederim.İnşallah acil yardım eden bir arkadaş bulunur.

 

[kombo]

Lütfen önce
http://www.excel.web.tr/viewtopic.php?t=879
okuyun.

 

[moonty]

Ne oldu ki sadece yardım istedim.Çok acele olmasa istemezdim.

 

[mehmett]

Sn moonty,

Ekteki dosyada fonksiyon ile yapılmış bir örnek var.

Umarım işinizi görür.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Dosyadada kodun çalışmasını görebilirsiniz.

[vb:1:dfa4f18152]Sub ekle()
For a = 1 To Cells(1, 256).End(xlToLeft).Column
Range(Cells(4, a), Cells(65536, a)).ClearContents
For b = 1 To Cells(1, a)
Cells(3 + b, a) = Cells(2, a)
Next
Next
End Sub
[/vb:1:dfa4f18152]

 

[moonty]

Örnek bir tane gönderdim ama..Ekte...Sizinkini de deneyeceğim tşk.Siz bir daha incelerseniz iyi olur.Tşk.

 

[moonty]

Çok Teşekkür Ederim.Çok Sağol.Beni büyük bir zahmetten kurtardın.Tekrar teşekkür ederim.

 

[moonty]

Gönderdiğiniz işimi gördü.Çok teşekkür ederim.Sağolun.İyi geceler.

 

[moonty]

Gönderdiğin çok güzel ama . Ayşe.Fatma....vs.ayrı sütunlarda.
Acaba Fatma,Ayşenin bittiği satırdan başlayamazmı?
2 4

Ayşe Fatma
Ayşe Fatma
Fatma
Fatma

yerine;

2 4

Ayşe
Ayşe
Fatma
Fatma
Fatma
Fatma


....gibi.

Tsk.

 

[Levent Menteşoğlu]

Eklediğim dosyada verdiğim kodu aşağıdaki ile değiştirin.

[vb:1:d678d644f1]Sub ekle()
[a4:a65536].ClearContents
For a = 1 To Cells(1, 256).End(xlToLeft).Column
For b = 1 To Cells(1, a)
c = c + 1
Cells(3 + c, "a") = Cells(2, a)
Next
Next
End Sub
[/vb:1:d678d644f1]