Satirlardakİ Verİlerİ SÜtunlara Aktarma

[Erdinç FIRTINA]

Değerli Forum Üyeleri,

Satırlarda olan verileri sütunlara gelecek şekilde yan yana aktarmak istiyorum. Ancak, bunu ters çevir yapıştır ile yapamıyorum. Aslında daha önceki bir örnekte, Sayın Korhan AYHAN bana bu konuda yardım etmişti. Ancak, kodları anlamaya çalışarak bu dosyama uyarlamaya çalıştım ama maalesef beceremedim.

Dosyamı ekte sunuyorum. Yardımlarınız için şimdiden teşekkürler!!!

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Set s1 = Sheets("veri")
Set s2 = Sheets("veri2")
For a = 2 To s1.[b65536].End(3).Row
If WorksheetFunction.CountIf(s2.[b:b], s1.Cells(a, "b")) = 0 Then
sat = WorksheetFunction.CountA(s2.[b:b]) + 1
s1.Range("b" & a & ":g" & a).Copy s2.Cells(sat, "b")
Else
sat = WorksheetFunction.Match(s1.Cells(a, "b"), s2.[b:b], 0)
sut = s2.Cells(sat, 256).End(xlToLeft).Column + 1
s1.Range("b" & a & ":g" & a).Copy s2.Cells(sat, sut)
End If
Next
End Sub

 

[Erdinç FIRTINA]

Sayın Levent MENTEŞOĞLU,
Çok çok teşekkür ederim. Elinize, beyninize ve de yüreğinize sağlık...

 

[Erdinç FIRTINA]

Sayın Levent MENTEŞOĞLU,

Hazırlamış olduğunuz kodlarla yapmak istediğim oluyor. Ancak, sütunlara bir kez aktardıktan sonra tekrar aktar komutunu çalıştırdığımda ya aynı verileri öncesinde aktarılanların üzerine aktarmasını ya da sadece daha öncesinde aktarılmayan verileri aktarılan sütunların yanına aktarabilir miyiz?

Çünkü; aktarılan verilerin yanına sürekli olarak aktarılınca aynı veriler tekrar etmiş oluyor ve sütunlar yetmiyor.

Örneğin;

'Aysel TİLKİ 05.08.2008 - Salı 08.30 TEK ALİ TÜRKÇE DERSİ'

satırından 8 tane varsa ve sütunlara aktarılmışsa, yeniden aktar dediğimizde en son sütunun sağından itibaren tekrar 8 tane aynı veriyi aktarıyor. Bunu nasıl engelleyebiliriz?

 

[Erdinç FIRTINA]

Sayın Menteşoğlu,
Çok özür, çok basit bir olayı bile düşünemedim.

S2.[AC2:IV65536].Clear

satırı işimi çözdü.

Her şey için çok teşekkürler!!!

 

[cenderus]

dosya ektedir

dosya tekrar eklenmiştir