boyanmayan hücreleri başka hücreye yazdırma

[cenkgkz]

başlıkta belirttiğim gibi A sütunun da boyanmayan (dolgu olmayan) hücreleri başka hücreye nasıl geçirebilirim?

 

[AdemCan]

Sayfa1 yerine işlem yapmak istediğiniz sayfa ismini yazınız.
A sütunundaki verileri 10. sütuna yazar.

Sub test()
Dim s1 As Worksheet, i As Long, x As Long, son As Long
Set s1 = Sayfa1: son = s1.Range("A" & Rows.Count).End(xlUp).Row
x = 1
For i = 1 To son
    If s1.Cells(i, 1).Interior.ColorIndex = xlNone Then
        s1.Cells(x, 10) = s1.Cells(i, 1)
        x = x + 1
    End If
Next i
End Sub

 

[cenkgkz]

Çok teşekkürler çok işime yaradı )))

 

[AdemCan]

Rica ederim.

 

[cenkgkz]

B de ki sutun için "A" yerin B Yazsam kod b içinde çalışır mı?

 

[cenkgkz]

Rica ederim.

bakabilir misiniz acaba?

 

[Korhan Ayhan]

B sütunu için aşağıdaki gibi olabilir..

Sub test()
Dim s1 As Worksheet, i As Long, x As Long, son As Long
Set s1 = Sayfa1: son = s1.Range("B" & Rows.Count).End(xlUp).Row
x = 1
For i = 1 To son
    If s1.Cells(i, 2).Interior.ColorIndex = xlNone Then
        s1.Cells(x, 10) = s1.Cells(i, 2)
        x = x + 1
    End If
Next i
End Sub

 

[cenkgkz]

B sütunu için aşağıdaki gibi olabilir..

Sub test()
Dim s1 As Worksheet, i As Long, x As Long, son As Long
Set s1 = Sayfa1: son = s1.Range("B" & Rows.Count).End(xlUp).Row
x = 1
For i = 1 To son
    If s1.Cells(i, 2).Interior.ColorIndex = xlNone Then
        s1.Cells(x, 10) = s1.Cells(i, 2)
        x = x + 1
    End If
Next i
End Sub

Çok teşekkürlerr

 

[Korhan Ayhan]

Bu arada bir hatırlatma yapmakta fayda var...

Profilinizdeki excel sürüm bilgisini linki inceleyerek güncellemenizi rica ederim.

Profilinizdeki bilgi ; Excel Vers. ve Dili excel

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr