Dolu olan sütunları aktarma

[vasifokur]

Ekteki çalışmaya göre 1. satırı X olan hücreleri aaktarmak istiyorum. Yardımlarınız için şimdiden telekkür ederim.

 

[Necdet]

Merhaba,

Doğru mu anladım bilmiyorum, aşağıdaki gibi bir kod olabilir.

Sub XAktar()
Dim Satır As Long
Dim Sütun As Integer, [B][COLOR=red]j[/COLOR][/B] As Integer
Dim Sayfa1 As Worksheet, Sayfa2 As Worksheet
Set Sayfa1 = Sheets("1")
Set Sayfa2 = Sheets("2")
Sayfa1.Select
Sayfa2.Cells.ClearContents

For Sütun = 1 To [IV1].End(1).Column
    If Cells(1, Sütun) = "X" Then
        [COLOR=red][B]j = j + 1
[/B][/COLOR]        Columns(Sütun).Copy Sayfa2.Columns([B][COLOR=red]j[/COLOR][/B])
    End If
Next Sütun
MsgBox "Aktarma İşlemi Bitti...", vbOKOnly, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

 

[vasifokur]

Sn Necdet Bey; öncelikle teşekkür ederim. Bir şey eklemeyi unutmuştum. X'e göre aktarırken 2. sayfada boş sütunları birleştirebilir miyiz? X'e göre dolu olanları aktarırken boş sütun kalmamalı. Örneğin C,E,F... sütunları boş gözüküyor.

 

[Necdet]

Merhaba,

Kodlarda kırmızı olarak yazdığım satırlar eklenirse dediğiniz gibi olur.


Not : İlk mesajımdaki dosya ve kodları düzelttim.

 

[vasifokur]

İstediğim buydu. Teşekkürler

 

[Necdet]

Rica ederim.

İyi günler.

 

[buseen]

selam sadece S ve aşaya doğru x olan satırı nasıl aktara biliriz.
aktarmak için s sutunu kullanmak istiyorum

 

[Necdet]

selam sadece S ve aşaya doğru x olan satırı nasıl aktara biliriz.
aktarmak için s sutunu kullanmak istiyorum

Örnek dosya ile sorunuzu açıklar mısınız?

 

[buseen]

Aktarma

Acıklama dosyada hocam

 

[Necdet]

Merhaba,

Sayın buseen, sadece S sütununda X olanlar aktarılacak diyorsunuz da, nereye aktarılacak, onu yazmamışsınız.

 

[buseen]

Sayın necdet bey a sutunundaki isme sayfa acarak aktaracak