koşul oluşturma

[kayra75]

Merhaba,
Makroda hazırlanmış bir dosyada belli kosullarda sort edildikten sonra farklı bir sheet 'e aktarılıp text to column yapılıyor. Fakat bazı koşullarda aktarılan dosya boş olduğu için makro DEBUG yapmaktadır. Yapmak istediğim eger ilgili hücre dolu ise aktarsın ve daha sonra text to column cevirebileyim. Ama eger dolu değil ise de onu texttocolumn u calıstırmadan diğer işlemlerine devam etsin.
UYARIYI VEREN BÖLÜM YILDIZLA İŞARETLEDİM...
Range("Y1:Y2210").Select
Columns("X:Y").Select
Columns("X:Y").EntireColumn.AutoFit
Range("Y6").Select
Range("X1:Y1").Select
Selection.Insert Shift:=xlDown
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="#N/A"
Columns("x:x").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("SONUÇ").Select
Range("f7").Select
ActiveSheet.Paste
************************ BU KISIMA F7 İCİNDE DATA YOKSA ALTTAKİ İŞLEMİ YAPMAMASI İCİN BİR KOMUT GETİRMEM GEREKİYOR..


Range("f7:f500").Select
Selection.TextToColumns Destination:=Range("f7"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=True, Space:=False, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True

 

[hamitcan]

If [f7] <> Empty Then
    Range("f7:f500").Select
    Selection.TextToColumns Destination:=Range("f7"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=True, Comma:=True, Space:=False, Other:=False, FieldInfo:= _
    Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
    TrailingMinusNumbers:=True
End If