I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

Alright change this line

Do Until ActiveCell.Rows.Count = 130

to

Do Until ActiveCell.Address = "$A$131"

Sorry

"NANGO" wrote:

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

Sorry, that makes the macro do nothing.

Sorry I'm not getting it right.

Thanks

"AKphidelt" wrote:

Alright change this line

Do Until ActiveCell.Rows.Count = 130

to

Do Until ActiveCell.Address = "$A$131"

Sorry

"NANGO" wrote:

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

Alright, don't touch anything, just copy and paste this exactly as shown in
to a regular module.

Go to the VBE and go to Insert--- Module
And then paste this in to it.

Sub HideRows()

Range("A13").Activate

Do Until ActiveCell.Address = "$A$131"

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True

ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub


"NANGO" wrote:

Sorry, that makes the macro do nothing.

Sorry I'm not getting it right.

Thanks

"AKphidelt" wrote:

Alright change this line

Do Until ActiveCell.Rows.Count = 130

to

Do Until ActiveCell.Address = "$A$131"

Sorry

"NANGO" wrote:

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

I'll let you go for now. I'm not sure what I'm doing wrong. Except this is
the first time I've ever tried VBE and I've never gotten even a simple macro
to work.

Sorry to take so much time.

Thank you very much for all your help.

"AKphidelt" wrote:

Alright, don't touch anything, just copy and paste this exactly as shown in
to a regular module.

Go to the VBE and go to Insert--- Module
And then paste this in to it.

Sub HideRows()

Range("A13").Activate

Do Until ActiveCell.Address = "$A$131"

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True

ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub


"NANGO" wrote:

Sorry, that makes the macro do nothing.

Sorry I'm not getting it right.

Thanks

"AKphidelt" wrote:

Alright change this line

Do Until ActiveCell.Rows.Count = 130

to

Do Until ActiveCell.Address = "$A$131"

Sorry

"NANGO" wrote:

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

No problem, glad to help. I'm actually in Prudhoe Bay right now working on an
oil field as a financial analyst. We work 12-15 hour days, 7 days a week...
so I have a lot of free time on my hands, lol. Have a good one.

"NANGO" wrote:

I'll let you go for now. I'm not sure what I'm doing wrong. Except this is
the first time I've ever tried VBE and I've never gotten even a simple macro
to work.

Sorry to take so much time.

Thank you very much for all your help.

"AKphidelt" wrote:

Alright, don't touch anything, just copy and paste this exactly as shown in
to a regular module.

Go to the VBE and go to Insert--- Module
And then paste this in to it.

Sub HideRows()

Range("A13").Activate

Do Until ActiveCell.Address = "$A$131"

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True

ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub


"NANGO" wrote:

Sorry, that makes the macro do nothing.

Sorry I'm not getting it right.

Thanks

"AKphidelt" wrote:

Alright change this line

Do Until ActiveCell.Rows.Count = 130

to

Do Until ActiveCell.Address = "$A$131"

Sorry

"NANGO" wrote:

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

Yikes! I bet you could make my whole quote tool ten times better than it is.

"AKphidelt" wrote:

No problem, glad to help. I'm actually in Prudhoe Bay right now working on an
oil field as a financial analyst. We work 12-15 hour days, 7 days a week...
so I have a lot of free time on my hands, lol. Have a good one.

"NANGO" wrote:

I'll let you go for now. I'm not sure what I'm doing wrong. Except this is
the first time I've ever tried VBE and I've never gotten even a simple macro
to work.

Sorry to take so much time.

Thank you very much for all your help.

"AKphidelt" wrote:

Alright, don't touch anything, just copy and paste this exactly as shown in
to a regular module.

Go to the VBE and go to Insert--- Module
And then paste this in to it.

Sub HideRows()

Range("A13").Activate

Do Until ActiveCell.Address = "$A$131"

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True

ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub


"NANGO" wrote:

Sorry, that makes the macro do nothing.

Sorry I'm not getting it right.

Thanks

"AKphidelt" wrote:

Alright change this line

Do Until ActiveCell.Rows.Count = 130

to

Do Until ActiveCell.Address = "$A$131"

Sorry

"NANGO" wrote:

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

Just keep asking questions

"NANGO" wrote:

Yikes! I bet you could make my whole quote tool ten times better than it is.

"AKphidelt" wrote:

No problem, glad to help. I'm actually in Prudhoe Bay right now working on an
oil field as a financial analyst. We work 12-15 hour days, 7 days a week...
so I have a lot of free time on my hands, lol. Have a good one.

"NANGO" wrote:

I'll let you go for now. I'm not sure what I'm doing wrong. Except this is
the first time I've ever tried VBE and I've never gotten even a simple macro
to work.

Sorry to take so much time.

Thank you very much for all your help.

"AKphidelt" wrote:

Alright, don't touch anything, just copy and paste this exactly as shown in
to a regular module.

Go to the VBE and go to Insert--- Module
And then paste this in to it.

Sub HideRows()

Range("A13").Activate

Do Until ActiveCell.Address = "$A$131"

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True

ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub


"NANGO" wrote:

Sorry, that makes the macro do nothing.

Sorry I'm not getting it right.

Thanks

"AKphidelt" wrote:

Alright change this line

Do Until ActiveCell.Rows.Count = 130

to

Do Until ActiveCell.Address = "$A$131"

Sorry

"NANGO" wrote:

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!

I'll take you up on that offer. But I better get to working on my real work
for today.

"AKphidelt" wrote:

Just keep asking questions

"NANGO" wrote:

Yikes! I bet you could make my whole quote tool ten times better than it is.

"AKphidelt" wrote:

No problem, glad to help. I'm actually in Prudhoe Bay right now working on an
oil field as a financial analyst. We work 12-15 hour days, 7 days a week...
so I have a lot of free time on my hands, lol. Have a good one.

"NANGO" wrote:

I'll let you go for now. I'm not sure what I'm doing wrong. Except this is
the first time I've ever tried VBE and I've never gotten even a simple macro
to work.

Sorry to take so much time.

Thank you very much for all your help.

"AKphidelt" wrote:

Alright, don't touch anything, just copy and paste this exactly as shown in
to a regular module.

Go to the VBE and go to Insert--- Module
And then paste this in to it.

Sub HideRows()

Range("A13").Activate

Do Until ActiveCell.Address = "$A$131"

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True

ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub


"NANGO" wrote:

Sorry, that makes the macro do nothing.

Sorry I'm not getting it right.

Thanks

"AKphidelt" wrote:

Alright change this line

Do Until ActiveCell.Rows.Count = 130

to

Do Until ActiveCell.Address = "$A$131"

Sorry

"NANGO" wrote:

Thanks for the help. The only problem is this seems to be going through
every row in the entire workbook

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

Any ideas?

"AKphidelt" wrote:

Nango, see if any of this works and Ill try to explain myself as I go along.

Sub HideRows()
Range("A13").Activate

Do Until ActiveCell.Rows.Count = 130

If IsEmpty(ActiveCell) Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1,0).Activate

Else: ActiveCell.Offset(1,0).Activate
End If
Loop

End Sub

This sub will go through rows 13-130 every time and hide any row that
doesn't have a value. If you want to hide all the cells after that... add
something like this

Range(Range("A131"),Range("A131").End(xlDown).Hidd en = True

LMK what else you need


"NANGO" wrote:

I've tried a couple macro's I've seen online, but I can't seem to make a
macro work to hide lines on my worksheet.

I've got a quote worksheet with rows 13:130 available for quoting.

In column A is where the quantity gets filled in automatically from a
previous tab via a macro.

I'd like this worksheet to automatically hid the any rows on this tab that
do not have a quantity in column A.

Also, I've got my worksheet o "Auto-fit" the rows in this worksheet and the
worksheet that feeds information into it via a Macro to "Auto-Fit" rows to
the description of the product, however it doesn't happen. Any idea what I
should do here?

Many thanks!