Remove entire row

[Goofan]

Hi, I think this question has been asked before here but i couldn't find an "true answer" to the question i possess.

How do you remove an entire row?
my worksheet got 3 coloumns filled with text and with some that got nothing in them however i got 3 other coloumns that are below the others(exampel below). Now i want to remove those rows where there is nothing in them.

|19919191|1919191191|11116162
|blank|blank|blank
|19919191|1919191191|11116162
|19919191|1919191191|11116162
|blank|blank|blank
|19919191|1919191191|11116162
|19919191|1919191191|11116162
|blank|blank|blank
|19919191|1919191191|11116162
|19919191|1919191191|11116162
|19919191|1919191191|11116162
|blank|blank|blank
|19919191|1919191191|11116162
|19919191|1919191191|11116162
|blank|blank|blank|blank|blank|blank|blank|blank|blank|19919191|1919191191|11116162
|blank|blank|blank|blank|blank|blank|blank|blank|blank|19919191|1919191191|11116162
|blank|blank|blank|blank|blank|blank|blank|blank|blank|19919191|1919191191|11116162
|blank|blank|blank|blank|blank|blank|blank|blank|blank|19919191|1919191191|11116162

I hope this makes some sens atleast
And i need it as a function if that makes any diffrence...

Regards,
Thomas

 

[Goofan]

Ok i went on google to see how to set a reference to the active workbook and couldn't find what you ment
Would you show me an exampel or such?

 

[Smitty]

Ok i went on google to see how to set a reference to the active workbook and couldn't find what you ment
Would you show me an exampel or such?

Dim wbsTarget as WorkBook
Set wbsTarget = Activeworkbook
' Other code here
wbsTarget.Activate

 

[Goofan]

ohh now i get it :D

thanks

 

[Goofan]

Got any idea of why i cant find the file that i found "yesterday"?
The file is in the same location as the file im using and the name is correct... :O

 

[Smitty]

Not a clue.

 

[Goofan]

Ok it seemed like a pritty simple solution, I had to have the entire pathway and all that aswell.
However it sais:

Run-time error '-2147221080 (800401a8)':
automation error

on this line:

wksTarget.Range("A3").PasteSpecial Paste:=xlValue

What i get out of that message is that it pastes to much into the new and that i should proberbly not take that many rows and paste over, i get that, but i can't figure out how to actually make that happend.

Dim wkbSource As Workbook
    Dim wksTarget As Worksheet
    Dim wbsbookTarget As Workbook

    Set wbsbookTarget = ActiveWorkbook
    Set wksTarget = ActiveSheet
    Set wkbSource = Workbooks.Open("C:\xxx\Imported.xlsx")
    wkbSource.Sheets(1).Range("A1:C1000000").Copy
    wksTarget.Range("A3").PasteSpecial Paste:=xlValue
    wkbSource.Activate

I should proberbly only copy the rows that got information in them but how?

Regards,
Thomas

 

[Goofan]

Never mind solved that

 

[Goofan]

Smitty, thank you so much for the help that you have given.

I managed to figure the rest out and the macro is now working.

Regards,
Thomas

 

[Smitty]

Glad you got it going.

I'm sure you caught it, but logically you need to activate the destination workbook before you can paste into it.

 

[Goofan]

Yea, i finally got it :D I'm just not familiar with vba... been programming in php/as3 and vb 6.0 but never vba so got abit confused and that lead to more misstakes and well i just needed a night good sleep