excel satır işlemleri

[vtexcel]

Merhaba, ekte gösterdiğim excel üst üste satırlarının sarı ile işaretlediğim kısımları yan yana nasıl getirebilirim. Yani sarı kodlar saol taraftak koda bağlı kodlardır.

 

[sorucu]

doğru anladıysam yan yana gelen hücreleri kopyala yapıp özel yapıştır ile yan yana getirebilirsiniz.

bunun için ozel yapıştır da işlemi tersine cevir kutucugunu secmeniz yeterlidir.

 

[alicimri]

1- Birleştirilmiş hücrelerin A sütununda,
2- Kopyalanacak hücrelerin (Sarı boyalı) B sütununda,
3- Yan yana yapıştırılacak hücreler C sütunundan başladığı varsayılmıştır.

Sub Makro1()

For i = 1 To Range("a" & Rows.Count).End(3).Row
If ActiveSheet.Range("a" & i).MergeArea.Count > 1 Then
say = ActiveSheet.Range("a" & i).MergeArea.Count
satır = ActiveSheet.Range("a" & i).MergeArea.Row
Range("B" & satır & ":B" & say + satır - 1).Copy
Range("C" & satır).PasteSpecial Transpose:=True
End If
Next
End Sub

 

[vtexcel]

Makro işe yaradı. Çok teşekkür ederim. İkinize de..