Bir sütunda bulunan verileri grup şeklinde başka sütunlara ayarlama yardım...

[cgrozay]

Merhaba arkadaşlar yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim.

10 gündür arama rağmen istediğim sonucu elde edecek veriye ulaşamadım.

1)
resimde görünen F sütunundaki sarı ile boyamış serileri yine yan tarafında bulunan sarı ile boyanmış L sütununa, F sütunundaki kırmızı ile boyalı olanları M sütunundaki kırmızı boyalı alana buşekilde alt alta yaklaşık 45000 adet seriyi yan yana 20 li gruplar şeklinde nasıl düzenleyebilirim. Bu şeklide gruplandırmak mümkünmüdür.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
For i = 8 To Cells(Rows.Count, "F").End(3).Row Step 20
Range("F" & i & ":F" & i + 19).Select
Selection.Copy

yeni = WorksheetFunction.Max(12, Cells(8, Columns.Count).End(xlToLeft).Column + 1)
Cells(8, yeni).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
Range("F8").Select
End Sub

 

[cgrozay]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
For i = 8 To Cells(Rows.Count, "F").End(3).Row Step 20
Range("F" & i & ":F" & i + 19).Select
Selection.Copy

yeni = WorksheetFunction.Max(12, Cells(8, Columns.Count).End(xlToLeft).Column + 1)
Cells(8, yeni).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
Range("F8").Select
End Sub

kusura bakmayın hocam modülden kastınızı anlamadım.

 

[YUSUF44]

Alt+F11 yapın
Çıkan sayfada Insert menüsünden Module'ü seçin
Kodları bu çıkan sayfaya yapıştırın
Excel dosyanıza herhangi bir şekil/düğme ekleyin
Düğmeye sağ tıklayıp Makro Ata deyin ve çıkan listede aktar makrosunu seçin
Daha sonra bu düğmeye her tıkladığınızda kopyalama işlemini yapacaktır.

Ayrıntılı bilgi için makro ekleme ve çalıştırma konularını araştırın.

 

[YUSUF44]

Eğer formülle çözmek isterseniz:

L8 hücresine aşağıdaki formülü yazıp L27'ye kadar ve sağa doğru istediğiniz kadar kopyalayın:

=DOLAYLI(ADRES((SÜTUN()-12)*20+SATIR();6;1;1;))

 

[cgrozay]

Eğer formülle çözmek isterseniz:

L8 hücresine aşağıdaki formülü yazıp L27'ye kadar ve sağa doğru istediğiniz kadar kopyalayın:

=DOLAYLI(ADRES((SÜTUN()-12)*20+SATIR();6;1;1;))

hocam şu son yazdığınız diğerine göre daha iyi. diğer makroda serileri 20şer grup halinde bir baştan bi sondan sıralıyor. Son mesajınızdaki formulü işten dolayı tam deneyemedim. Lakin istediğin şekilde oldu gibi duruyor. Çok teşekkür ederim. Saatlerce sürecek bi çalışmadan kurtardınız beni diyebililrim.

 

[bzace]

Alternatif olarak;
L8,M8,N8.... hücrelerine hangi hücreye kadar veri almasını istiyorsanız yazınız.

=İNDİS(İNDİS(alan;MAK(1;EĞER(EHATALIYSA(KAÇINCI(K$8;alan;));;
  KAÇINCI(K$8;alan;)))):İNDİS(alan;EĞER(EHATALIYSA(KAÇINCI(L$8;alan;));
BAĞ_DEĞ_DOLU_SAY(alan)+1;KAÇINCI(L$8;alan;))-1);SATIR()-8)

Dosyanız: Buradan

Not:ALAN ifadesi Ad tanımlamasıdır.