Posting into next empty column

[JeremyGraham95]

I AM STRUGGLING WITH GETTING THIS PIECE OF CODE TO WORK. i KEEP GETTING "APPLICATION DEFINED ERROR AND OBJECT DEFINED ERROR" AND CANT SEEM TO FIGURE OUT WHY. IT ALL LOOKS CORRECT TO ME. PLEASE HELP ME OUT





Dim source As Worksheet
Dim destination As Worksheet
Dim emptyColumn As Long


Set source = Sheets("Order Summary")
Set destination = Sheets("TRENDS")


'find empty Column (actually cell in Row 1)'
emptyColumn = destination.Cells(1, destination.Columns.Count).End(xlUp).Column
If emptyColumn > 1 Then
emptyColumn = emptyColumn + 1
End If


source.Range("B2:B127").Copy destination.Cells(1, emptyColumn)

 

[Smitty]

Welcome to the Board!

I'd think it's because you're using End(xlUp) instead of End(xlToLeft).

P.S. your Caps Lock is stuck.

 

[saurabh726]

You can do couple of things...

dim lcol as long
lcol=Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column+1

This will give you last Column+1 without any specific row..as in last filled column of your datasheet

Now if you want to find last fill column of row1 only then you can use this...

Dim lcol As Long
lcol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column+1

This will give you basis of 1 Row only..

Saurabh...

 

[JeremyGraham95]

Thank you for the easy fix. could you tell me how i could modify the last line of the code so that the destination is d3? would i just copy the source part directly before it???