If sutun = "" Then Hakkında

[bilal5412]

Merhaba arkadaşlar, aşağıdaki makro seçili sütundaki verileri sayıya dönüştürüyor. Fakat boş hücrelerde de işlem yapıyor. Boş hücrelerde işlem yapma kodunu ekleyebilme konusunda yardımcı olabilir misiniz.

Sub Makro1()

Selection.TextToColumns Destination:=Selection.Cells(1, 1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

End Sub

Örnek olarak ben şöyle bir kod ekledim ; bu kod boş satırları işleme almıyor fakat verinin üstündeki satır boş ise o sütundaki tüm verileri bir üst satıra kaydırıyor... Yardımlarınız rica.

On Error Resume Next
If sutun = "" Then
End If