Thank you so muchnow it's working absolutely!!!
--
Thanks & Regards
*Sunil Kumar Yadav*
Skype ID: sunil.yadav7186
On Tue, Apr 28, 2015 at 2:52 PM, Mandeep Baluja
wrote:
> Sub Getvalues()
>
> Dim r As Range
> lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
> Set Rng = Sheets("Sheet1").Ra
Sub Getvalues()
Dim r As Range
lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Set Rng = Sheets("Sheet1").Range("B2:B" & lr)
For Each cell In Rng
If cell.Value Like "*LF*" Then
cell.Offset(0, 1) = 0
Else
cell.Offset(0, 1) = 1
End If
Next
On Error Resume Next
Sheets("Sheet1").Range("$A$1:$B$1
Dear it's not working, please check the file...i have deleted the LF
records but coding is not doing copy and paste exactly correct location to
other data!!!
You can check!!!
i m sending you both filekindly give me one coding which will be work
on both data without error.
--
Thanks & Regard
change activesheet to Sheets("sheet1")
On Monday, April 27, 2015 at 5:41:00 PM UTC+5:30, Mandeep Baluja wrote:
>
> Sub Getvalues()
>
> Dim r As Range
> lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
> Set Rng = ActiveSheet.Range("B2:B" & lr)
>
> For Each cell In Rng
> If cell.Value Like "*LF
Sub Getvalues()
Dim r As Range
lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Set Rng = ActiveSheet.Range("B2:B" & lr)
For Each cell In Rng
If cell.Value Like "*LF*" Then
cell.Offset(0, 1) = 0
Else
cell.Offset(0, 1) = 1
End If
Next
On Error Resume Next
ActiveSheet.Range("$A$1:$B$16").AutoFil
Dear Mandeep,
I need to some modification in this, when no record of LF exist in this
data then your query showing error and stop it but I want to go on next
step(copy other data) without error or stop
Please also check my coding!!!
--
Thanks & Regards
*Sunil Kumar Yadav*
Skype ID: sunil.yadav7
Thank u so much
it's working as per my requirement :-)
--
Thanks & Regards
*Sunil Kumar Yadav*
Skype ID: sunil.yadav7186
On Mon, Apr 27, 2015 at 3:12 PM, Mandeep Baluja
wrote:
> check this out code given
>
>
> Regards,
> Mandeep Baluja
>
> On Monday, April 27, 2015 at 12:42:08 PM UTC+5:30, sk.
check this out code given
Regards,
Mandeep Baluja
On Monday, April 27, 2015 at 12:42:08 PM UTC+5:30, sk.yadav7186 wrote:
>
> hi...pls any revert
>
> --
> Thanks & Regards
> *Sunil Kumar Yadav*
> Skype ID: sunil.yadav7186
>
> On Sat, Apr 25, 2015 at 3:10 PM, Sunil Kumar Yadav > wrote:
>
>>
check this !!
Regards,
Mandeep
https://www.linkedin.com/profile/public-profile-settings?trk=prof-edit-edit-public_profile
On Monday, April 27, 2015 at 12:42:08 PM UTC+5:30, sk.yadav7186 wrote:
>
> hi...pls any revert
>
> --
> Thanks & Regards
> *Sunil Kumar Yadav*
> Skype ID: sunil.yadav718
hi...pls any revert
--
Thanks & Regards
*Sunil Kumar Yadav*
Skype ID: sunil.yadav7186
On Sat, Apr 25, 2015 at 3:10 PM, Sunil Kumar Yadav
wrote:
> My means sometimes LF invoice no. not exist in data that time my filter
> query got error bcoz filtered value blank i want to query go to next s
My means sometimes LF invoice no. not exist in data that time my filter
query got error bcoz filtered value blank i want to query go to next step
for other invoices copy without any errorin simple words i want to run
loop in many columns in same time only in filtered visible value!!!
Thanks,
hi
What do you mean by "when sometime no record of LF found then other data
past on state sheet with error"??
You mean no additional data found ?
On Fri, Apr 24, 2015 at 7:35 PM, Sunil Kumar Yadav
wrote:
> Dear Team,
>
> i have read this type query on many sites but not understand properly,
>
Dear Team,
i have read this type query on many sites but not understand properly,
please write the code in my file for my data!!!
Example file enclosed
Please help!!!
--
Thanks & Regards
*Sunil Kumar Yadav*
Skype ID: sunil.yadav7186
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do yo
13 matches
Mail list logo