Makro İle Hücrelerdeki Değer Biçimine Göre Hücre Kaydırma

[ottoman71]

Merhaba Arkadaşlar,

B sütunumdaki hüclerin bazılarında sadece sayı, bazılarında ise sayı ve metin ve boş hücrelerden oluşan karışık veriler bulunmaktadır. Burada benim yapmak istediğim

Sadece sayısal değer olan hücreler kalsın diğersayı ve metin ve boş hücreler bir sağa ("C" sütunundaki) hücreye kaysın

Ekteki dosyada biraz daha detaylı anlatım mevcut.

Kolay gelsin.

 

[Necdet]

Merhaba,

Doğru anladıysam aşağıdaki kodu deneyiniz.

Sub Duzenle()
Dim i As Integer
For i = 2 To [b65536].End(3).Row
    If Not IsNumeric(Cells(i, "B")) Then
        Cells(i, "C") = Cells(i, "B")
        Cells(i, "B") = ""
    End If
Next i
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Sub tasi()
Dim sat As Integer
For sat = 3 To Cells(65536, "B").End(xlUp).Row
    If Not IsNumeric(Cells(sat, "b")) Then
        Cells(sat, "b").Cut Cells(sat, "c")
    End If
Next
End Sub

 

[ottoman71]

Necdet ve Ziya Hocam,
İkinizinde yaptığı makro işimi gördü teşekkur ederim.
Ellerinize sağlık.

İyi çalışmalar