thanks Don
Pawel

As you see I'm not loosing time "everyday something new" thanks to you mate




________________________________
 From: dguillett1 <dguille...@gmail.com>
To: excel-macros@googlegroups.com 
Sent: Sunday, September 16, 2012 2:24 PM
Subject: Re: $$Excel-Macros$$ hide column VBA
 

or one line
 
For i = 1 To 
ActiveSheet.UsedRange.Columns.Count
  If Cells(1, i).Value = 1 Then 
columns(i).Hidden = True
next i
 
Don 
Guillett
Microsoft Excel Developer
SalesAid 
Software
dguille...@gmail.com 
From: ashish koul 
Sent: Sunday, September 16, 2012 5:48 AM
To: excel-macros@googlegroups.com 
Subject: Re: $$Excel-Macros$$ hide column VBA
  Sub sample()
 
For i = 1 To ActiveSheet.UsedRange.Columns.Count
If Cells(1, i).Value = 1 Then
Cells(1, i).EntireColumn.Hidden = True
End If
 
Next
 
End Sub
 
 
 
On Sun, Sep 16, 2012 at 4:14 PM, pawel lupinski <lupins...@yahoo.com> wrote:

Hi  All,
>
>I wonder if you can help me, I'd like to hide all columns if the 
  value in row 1 is equal "1", I've written code but something is not working. 
  I'm new to VBA so if you can help me. Code is below:
>
>Sub 
  HideColumn()
>Dim a As Integer
>
>Range("a1").Select
>
>For a = a + 
  1 To 10
>
>    If ActiveCell.Cells(1, a).Value = 1 
  Then
>        ActiveCell.Columns(1, 
  a).Hidden = True
>    End If
>Next a
>End Sub 
>
> -- 
>Join official facebook page of this forum 
  @ https://www.facebook.com/discussexcel
> 
>FORUM 
  RULES (1120+ members already BANNED for violation)
> 
>1) Use 
  concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, 
  Need Help, Formula Problem, Code Problem, and Need Advice will not get quick 
  attention or may not be answered.
> 
>2) Don't post a question in the 
  thread of another member.
> 
>3) Don't post questions regarding 
  breaking or bypassing any security measure.
> 
>4) Acknowledge the 
  responses you receive, good or bad.
> 
>5) Cross-promotion of, or 
  links to, forums competitive to this forum in signatures are prohibited. 
> 
>6) Jobs posting is not allowed.
> 
>7) Sharing 
  copyrighted ebooks/pirated ebooks/their links is not 
  allowed.
> 
>NOTE : Don't ever post personal or confidential data in 
  a workbook. Forum owners and members are not responsible for any loss.
>--- 
>You received this message because you are subscribed to the Google Groups 
  "MS EXCEL AND VBA MACROS" group.
>To post to this group, send email to excel-macros@googlegroups.com.
>To unsubscribe from this 
  group, send email to mailto:excel-macros%2bunsubscr...@googlegroups.com.
> 
> 
>


 -- 

Regards
 
Ashish Koul
 
 
Visit
http://www.excelvbamacros.com/
http://www.accessvbamacros.com/
 
PBefore printing, think about the 
environment.
 
-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel
 
FORUM 
RULES (1120+ members already BANNED for violation)
 
1) Use concise, 
accurate thread titles. Poor thread titles, like Please Help, Urgent, Need 
Help, 
Formula Problem, Code Problem, and Need Advice will not get quick attention or 
may not be answered.
 
2) Don't post a question in the thread of 
another member.
 
3) Don't post questions regarding breaking or 
bypassing any security measure.
 
4) Acknowledge the responses you 
receive, good or bad.
 
5) Cross-promotion of, or links to, forums 
competitive to this forum in signatures are prohibited. 
 
6) Jobs 
posting is not allowed.
 
7) Sharing copyrighted ebooks/pirated 
ebooks/their links is not allowed.
 
NOTE : Don't ever post personal 
or confidential data in a workbook. Forum owners and members are not 
responsible 
for any loss.
--- 
You received this message because you are subscribed to 
the Google Groups "MS EXCEL AND VBA MACROS" group.
To post to this group, 
send email to excel-macros@googlegroups.com.
To unsubscribe from this group, 
send email to 
excel-macros+unsubscr...@googlegroups.com.
 
 

-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel
 
FORUM RULES (1120+ members already BANNED for violation)
 
1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
 
2) Don't post a question in the thread of another member.
 
3) Don't post questions regarding breaking or bypassing any security measure.
 
4) Acknowledge the responses you receive, good or bad.
 
5)  Cross-promotion of, or links to, forums competitive to this forum in 
signatures are prohibited. 
 
6) Jobs posting is not allowed.
 
7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.
 
NOTE  : Don't ever post personal or confidential data in a workbook. Forum 
owners and members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to 
excel-macros+unsubscr...@googlegroups.com.

-- 
Join official facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES (1120+ members already BANNED for violation)

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.

2) Don't post a question in the thread of another member.

3) Don't post questions regarding breaking or bypassing any security measure.

4) Acknowledge the responses you receive, good or bad.

5)  Cross-promotion of, or links to, forums competitive to this forum in 
signatures are prohibited. 

6) Jobs posting is not allowed.

7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed.

NOTE  : Don't ever post personal or confidential data in a workbook. Forum 
owners and members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To post to this group, send email to excel-macros@googlegroups.com.
To unsubscribe from this group, send email to 
excel-macros+unsubscr...@googlegroups.com.


Reply via email to