Hi All,
I am Maddy, working as a Consultant in a leading US MNC. I hold best
interest & fun in Excel & macros. It gives me immense pleasure working on
this platform.
On Saturday, June 9, 2012 at 12:51:59 AM UTC+5:30, Ayush Jain wrote:
>
> Hey all new and current posters,
>
> Welcome to excel
Hi Nitin,
Browsing thru filtered cell you can use following code:
*Sub loop_filt_rng()*
*Dim rng as Range, c as Range*
*ActiveSheet.Range("$A$1:$R$1").AutoFilter Field:=10, Criteria1:="Nitin",
Operator:=xlOr, Criteria2:="Balodi"*
*Dim c As Range, rng As Range*
*Set rng = Range("A2",
Range("A2").E
Hey Maddy!
Keep rokinnn..
Cheers!!
ᐧ
On Mon, Jan 12, 2015 at 3:26 PM, wrote:
> Hi All,
>
> I am Maddy, working as a Consultant in a leading US MNC. I hold best
> interest & fun in Excel & macros. It gives me immense pleasure working on
> this platform.
>
> On Saturday, June 9, 2012 at 12:51:59
Hi,
Iam a beginner for Excel VBA macros, i have a requirement like need to list
of image names in folder with file name (Image1), format (.png/.jpg), color
mode (RGB/CMYK), compression (LZW/None), vertical resolution (72 dpi/300
dpi), horizontal resolution (72 dpi/300 dpi), width (100 pixels),
Hi Vaibhav,
Many thanks, code worked.
Regards.
Yours Sincerely,Nitin Balodi
From: v...@vabs.in
Date: Mon, 12 Jan 2015 15:45:33 +0530
Subject: Re: $$Excel-Macros$$ Iterating Filtered list using VBA
To: excel-macros@googlegroups.com
Hi Nitin,
Browsing thru filtered cell you can use following code:
I have big data file on excel, the file has 6930 rows and 8 columns, the 8
column has percents (0%, 4%, 16%, 18%, 19% and etc..)
I tried to do a macro that paint all the rows that the percent in them are
bigger then 18%, and it doesnt work, i would like to get some ideas how to
make it work, t
Hi Liron
try below code..
*Sub Test_4()*
*Dim i As Long*
*Dim countErr As Long*
*countErr = 0*
*i = 2*
*For Each c In Range("A2:H5") '< 0.18 And IsNumeric(c.Value) Then*
*c.Interior.ColorIndex = 3*
*countErr = countErr + 1*
*End If*
*Next c*
*If countErr > 0 Then*
*Sheets("test").Select*
*Range
Hi :)
first of all thanks!, c is instead of i?
2015-01-12 16:27 GMT+02:00 Vaibhav Joshi :
> Hi Liron
>
> try below code..
>
> *Sub Test_4()*
> *Dim i As Long*
> *Dim countErr As Long*
> *countErr = 0*
> *i = 2*
>
> *For Each c In Range("A2:H5") '< *If c.Value > 0.18 And IsNumeric(c.Value) Then*
>
Nice Solution Vaibhav Sir.
Regards
Ashish
On 12 January 2015 at 19:57, Vaibhav Joshi wrote:
> Hi Liron
>
> try below code..
>
> *Sub Test_4()*
> *Dim i As Long*
> *Dim countErr As Long*
> *countErr = 0*
> *i = 2*
>
> *For Each c In Range("A2:H5") '< *If c.Value > 0.18 And IsNumeric(c.Value) Th
hi,
yes c is instead of i.
I have used range property to loop thru each cells in range, here c refers
to cell (range with single cell) .
you can also declare variable in the beginning Dim c As Range when you are
using option explicit.
Cheers!!
ᐧ
On Mon, Jan 12, 2015 at 8:00 PM, liron glam
wro
Thanks Ashish !!
Cheers!!
ᐧ
On Mon, Jan 12, 2015 at 8:01 PM, Ashish Kumar
wrote:
> Nice Solution Vaibhav Sir.
>
>
> Regards
> Ashish
>
> On 12 January 2015 at 19:57, Vaibhav Joshi wrote:
>
>> Hi Liron
>>
>> try below code..
>>
>> *Sub Test_4()*
>> *Dim i As Long*
>> *Dim countErr As Long*
>> *
Cheers Sir Cheers...
On 12 January 2015 at 20:04, Vaibhav Joshi wrote:
> Thanks Ashish !!
>
> Cheers!!
> ᐧ
>
> On Mon, Jan 12, 2015 at 8:01 PM, Ashish Kumar
> wrote:
>
>> Nice Solution Vaibhav Sir.
>>
>>
>> Regards
>> Ashish
>>
>> On 12 January 2015 at 19:57, Vaibhav Joshi wrote:
>>
>>> Hi
Cheers Nitin & appreciate your acknowledgement!
ᐧ
On Mon, Jan 12, 2015 at 7:32 PM, Nitin Balodi wrote:
> Hi Vaibhav,
>
> Many thanks, code worked.
>
>
> Regards.
>
> Yours Sincerely,
> *Nitin Balodi*
>
>
> --
> From: v...@vabs.in
> Date: Mon, 12 Jan 2015 15:45:33 +053
Nice Solution Vaibhav Sir
Regards
Ashish
On 12 January 2015 at 20:05, Vaibhav Joshi wrote:
> Cheers Nitin & appreciate your acknowledgement!
> ᐧ
>
> On Mon, Jan 12, 2015 at 7:32 PM, Nitin Balodi
> wrote:
>
>> Hi Vaibhav,
>>
>> Many thanks, code worked.
>>
>>
>> Regards.
>>
>> Yours Sincerely,
it still doesnt work, i need it to do the check only on the 8 column, cause
that's where the percents are,
any other idea?
thanks!!
2015-01-12 16:27 GMT+02:00 Vaibhav Joshi :
> Hi Liron
>
> try below code..
>
> *Sub Test_4()*
> *Dim i As Long*
> *Dim countErr As Long*
> *countErr = 0*
> *i = 2*
>
what is your data range ?
E.G. Your data range is B5:I100 then replace *A2:*H5 with the same..
See attach file for sample..
Cheers!!
ᐧ
On Mon, Jan 12, 2015 at 8:08 PM, liron glam
wrote:
> it still doesnt work, i need it to do the check only on the 8 column,
> cause that's where the percents a
Hello Associate,
I'm Mazhar Khan, with Systel Inc. We've an urgent requirement with one of
our client for *Scrum Master**. San Ramon, CA/Middletown, NJ *. Please
find below the job description for the same and revert back to me with your
consultant updated profile and contact details at the ear
my range is A3:H6930
2015-01-12 16:44 GMT+02:00 Vaibhav Joshi :
> what is your data range ?
>
> E.G. Your data range is B5:I100 then replace *A2:*H5 with the same..
>
> See attach file for sample..
>
> Cheers!!
> ᐧ
>
> On Mon, Jan 12, 2015 at 8:08 PM, liron glam
> wrote:
>
>> it still doesnt wor
But the numbers i want it to paint are only in column 8, cause in the other
ones i have other numbers and i don't want it to paint recording to them
2015-01-12 16:44 GMT+02:00 Vaibhav Joshi :
> what is your data range ?
>
> E.G. Your data range is B5:I100 then replace *A2:*H5 with the same..
>
>
Hello Associate,
I'm Mazhar Khan, with Systel Inc. We've an urgent requirement with one of
our client for *Data Analyst**. Charlotte, NC *. Please find below the job
description for the same and revert back to me with your consultant updated
profile and contact details at the earliest.
*Po
try this code..
Sub Test_4()
Dim i As Long
Dim countErr As Long
countErr = 0
i = 2
For Each c In Range("A3:H6930")
If c.Value > 0.18 And IsNumeric(c.Value) Then
Cells(c.Row, 8).Interior.ColorIndex = 3
countErr = countErr + 1
End If
Next c
If countErr > 0 Then
Sheets("test").Select
Range("E8").Se
Nice Solution Vaibhav Sir.
Regards
Ashish
On 12 January 2015 at 20:53, Vaibhav Joshi wrote:
> try this code..
>
> Sub Test_4()
> Dim i As Long
> Dim countErr As Long
> countErr = 0
> i = 2
>
> For Each c In Range("A3:H6930")
> If c.Value > 0.18 And IsNumeric(c.Value) Then
> Cells(c.Row, 8).Inte
Hi All,
i am working IE automation with one of the citrix page. when i nevigate
through page and click on close claim buttion i got one message.. do you
want to close the claim.
However i written one API which find the message and find the OK button and
click on OK. but issue to click on OK i
Hello,
I'm Mazhar Khan, with Systel Inc. We've an urgent requirement with one of
our client for *.Net Lead**. **Houston, TX*. Please find below the job
description for the same and revert back to me with your updated profile
and contact details at the earliest.
*Position: .Net Lead*
*Locat
give debug :( thanks anyway
2015-01-12 17:23 GMT+02:00 Vaibhav Joshi :
> try this code..
>
> Sub Test_4()
> Dim i As Long
> Dim countErr As Long
> countErr = 0
> i = 2
>
> For Each c In Range("A3:H6930")
> If c.Value > 0.18 And IsNumeric(c.Value) Then
> Cells(c.Row, 8).Interior.ColorIndex = 3
> c
Hi
If you have any resumes on this Position Please share to
*s.dak...@esskay-inc.com
*
*Position : **Citrix Administrator*
*Location : San Deigo,CA*
*Duration: Contract to hire*
*Major Duties & Responsibilities:* Plan, design, implement, test and deploy
new and/or existing Citrix systems
Hello,
I'm Mazhar Khan, with Systel Inc. We've an urgent requirement with one of
our client for *Sr. **Java Back –End – Expert**. *Palo Alto, CA. Please
find below the job description for the same and revert back to me with your
consultant updated profile and contact details at the earliest.
try this
Sub Test_4()
Dim i As Long
Dim countErr As Long
countErr = 0
i = 2
On Error Resume Next
For Each c In Range("A3:H6930") 'A2:H30
If c.Value > 0.18 And IsNumeric(c.Value) Then
Cells(c.Row, 8).Interior.ColorIndex = 3
countErr = countErr + 1
End If
Next c
If countErr > 0 Then
Sheets("te
Nice Solution Vaibhav Sir.
Regards
Ashish
On 13 January 2015 at 10:37, Vaibhav Joshi wrote:
> try this
>
> Sub Test_4()
> Dim i As Long
> Dim countErr As Long
> countErr = 0
> i = 2
>
> On Error Resume Next
> For Each c In Range("A3:H6930") 'A2:H30
> If c.Value > 0.18 And IsNumeric(c.Value)
29 matches
Mail list logo