Koşullu Sütun Kopyalama

[junes]

Merhabalar,

Yapmaya çalıştığım format düzenlemesinde şu şekilde bir çalışmaya ihtiyaç duyuyorum:

Resimde görüldüğü excel dosyası benzeri bir dosyada, örneğin D2 hücresinde "Belge No" yazan sütunu tamamiyle "AA" sütununa Kopyalamak istiyorum. Ancak Burada sorun Sütünun başında "Belge No" yazması. Yani D'yi al, AA'ya kopyala mantığında bir makro burada çalışmıyor, çünkü koşul sütunun D'de olması değil, Sütunun ilk satırının "Belge No" olması.

İkinci olarak aşağıdaki resimdeki göstermeye çalıştığım sorun var; resimde görüldüğü üzere bilgiler üzerindeki boşlukları silmek istiyorum, yani eğer A sutunda boş bir hücre varsa o sütunun silinmesini istiyorum.

İlginiz ve vaktiniz için teşekkür ederim.

 

[Levent Menteşoğlu]

Birinci sorunuz için aşağıdaki kodu deneyin. Belge No yazan sütunu bulur ve AA sütununa kopyalar.

Sub kopyala()
On Error Resume Next
sut = Cells.Find("Belge No").Column
Columns("aa") = Columns(sut).Value
End Sub

İkinci sorunuz içinde aşağıdaki kodu deneyin.

Sub bossil()
Range("a").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub