First of all..
You should consider Forum Rule #1)
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.
I suppose since the group title is: "MS EXCEL AND
Hi Prashant
I Hope This will help you.
Public Sub Test()
Dim wks As Worksheet
Dim intCol As Integer
Dim intRow As Integer
Dim intRAs Integer
intR = 1
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> "output" Then
For intCol = 1 T
Dear Ashish,
Thanks for the below code.
But I need to get output as shown in the attached sheet & code should list
all narrow cells in that workbook.
Regards
Prashant
On Sun, Nov 11, 2012 at 12:40 PM, ashish koul wrote:
>
> Sub sample1()
> Dim wk As Worksheet
> Dim cl As Range
> Set wk = Act
Sub sample1()
Dim wk As Worksheet
Dim cl As Range
Set wk = ActiveSheet
For Each cl In wk.UsedRange.Columns
If IsNumeric(cl.Cells(2, 1).Value) And Left(cl.Cells(2, 1).Text, 1) =
"#" Then
MsgBox cl.Address(0, 0)
End If
Next
End Sub
On Sun, Nov 11, 2012 at 1:23 PM, Prashant Pawl
Try
Sub import()
Dim wkb As Workbook
Dim z As Long
Dim flpath As String
Set wkb = Workbooks.Open(Application.GetOpenFilename("Excel File
(*.xls*)," & "*xls*"))
z = ThisWorkbook.Sheets(1).Range("a65356").End(xlUp).Row + 1
ThisWorkbook.Sheets(1).Range("a" & z).Value = wkb.Sheets(1).textbox1.Value
Th
Hi Kaushik
can you send both sample workbook which r link.
Thanks
Mahesh
On Mon, Aug 1, 2011 at 5:59 PM, KAUSHIK SAVLA wrote:
> Hi All,
>
> Vba code required to link whole workbook (every cell of workbook) to
> another workbook.
>
> Regards,
> Kaushik
>
> --
>
> ---
Hi Rajan,
I want to get it in another new workbook not in the same workbook.
Please help on this.
Regards,
Kaushik
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
htt
See the attached Sheet,
Double click on Any Cell in Sheet1 it will activate that cell of Sheet2
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim st As String
Dim sh As Worksheet
Set sh = Sheets("Sheet2")
st = Target.Address
sh.Activate
sh.Range(st).A
It will take a lot of time initially.
If there is any code or formula then would be helpful very much.
Regards,
Kaushik
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
Hi,
Just Try Manual Linking Once after that just update...
*Best Regards,*
*Venkat*
*Chennai*
*
*
On Mon, Aug 1, 2011 at 5:59 PM, KAUSHIK SAVLA wrote:
> Hi All,
>
> Vba code required to link whole workbook (every cell of workbook) to
> another workbook.
>
> Regards,
> Kaushik
>
> --
>
> ---
Hi Friends,
It is taking too long to delete the Zero value cells ans its rows.
Is there any way to select all the Zero value in a particular rows and
remove(Delete) from sheet.
Regards,
Prabhu
--
--
Some important
Thanks Rajan.
It works perfectly
Regards,
Kaushik
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://
Attached Your File with that Codes
thanks
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of KAUSHIK SAVLA
Sent: Thursday, July 28, 2011 6:14 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Vba Code required
Thanks Rajan,
But Vba
ehalf Of NOORAIN ANSARI
Sent: Thursday, July 28, 2011 12:31 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Vba Code Required for Delete Entire Row
Dear Arpit,
Please try below code to delete row equal to 0 in J Column..
Sub delete_row()
dim i,j as long
applica
Thanks Rajan,
But Vba is not ending. It is giving me debug required at End If in Vba Code,
further the totals are also not tying after Vba Code applying.
Please do the needful by looking it again.
Regards,
Kaushik
--
-
Run this in Claims Paid File
Sub DoSomething()
Dim rng As Range
Dim cell As Range
Dim rng2 As Range
Dim cell2 As Range
Dim i As Integer
i = 1
Set rng = Range("A:A")
rng.Sort Key1:=Range("A2")
rng.Copy Range("D1")
Range("D:D").RemoveD
Select the Column which have 0 Value and Run this Macro
Sub DeleteBySelection()
On Error GoTo err:
Application.ScreenUpdating = False
Dim rng As Range
Dim cell As Range
Set rng = Selection
For Each cell In rng
If cell.Value = 0 Then cell.En
Dear Arpit,
please try below code..it will be help to delete all row of J
column
Sub delete_row()
Dim i, j As Long
Application.ScreenUpdating = False
j = Application.WorksheetFunction.CountA(Sheet22.Range("J:J"))
For i = j To 1 Step -1
If Sheet22.Cells(i, 10).Value = 0 Then
Sheet22.Ra
another way to delete simple just select the rows.
simple macro to understand.
*Sub deleterow()
Application.ScreenUpdating = False
Dim cell As Range
Set cell = Selection
For Each cell In Selection
If cell.Value = 0 Then
cell.EntireRow.Delete
End If
Next cell
End Sub
*
On Thu, Jul 28, 2011 at 4:59
Thaks Daniel,
your logic is super.
On Thu, Jul 28, 2011 at 4:09 PM, Daniel wrote:
> Hi,
>
> ** **
>
> Another way to do it :
>
> ** **
>
> Sub test()
>
> Dim rgRange As Range
>
> With Sheets("Report")
>
> Set rgRange = Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp).Offs
Thanks Noorain for your quick respond.
It will not delete all rows properly at one time, about 50% 0 values row
penidng at the time of appling logic first time. i made some change but its
going hang. can you please modify it.
Sub delete_row()
dim i,j as long
application.screenupdating=false
Hi,
Another way to do it :
Sub test()
Dim rgRange As Range
With Sheets("Report")
Set rgRange = Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp).Offset(, 9))
rgRange.AutoFilter 10, 0
Set rgRange = rgRange.Offset(1).Resize(rgRange.Rows.Count - 1)
Set rgRange = rgRange.Speci
Dear Arpit,
Please try below code to delete row equal to 0 in J Column..
Sub delete_row()
dim i,j as long
application.screenupdating=false
j=application.worksheetfunction.counta(sheet22.range("J:J"))
for i=1 to j
if sheet22.cells(i,10).value=0 then
sheet22.range("J"&i).EntireRow.Delete
end if
>
> can you attach sample data. also is the data that you want to compare will
> have unique values.
>
>
>
> --
> Date: Fri, 12 Nov 2010 13:09:02 +0530
> Subject: $$Excel-Macros$$ VBA Code Required
> From: shrinivas...@gmail.com
> To: excel-macros@googlegroups.com
>
>
>
Dear Members
Please Help me I am waiting for reply
shrinivas
Date: Fri, 12 Nov 2010 13:09:02 +0530
Subject: $$Excel-Macros$$ VBA Code Required
From: shrinivas...@gmail.com
To: excel-macros@googlegroups.com
Dear All
Can Anyone help me for following problem.
I want to compare 2 column (whic
Hi All,
Can anyone help me providing the code for sending an excel attachment to be
automatically updated in the Lotus notes in a Text format(Not as
a Pictorial image or bit map.
Thanks,
Harish
--
--
Some important
How often do you have to do this?
does it HAVE to be done in VBA?
It's fairly simple to do it manually:
In Windows File Manager (explorer), simply search the top-level folder for *
then, select all of the files and drag them to the "master" folder.
If you still want it to be done with VBA, it's
MODULE1
Option Explicit
'In input box assign the path i.e c:\tc\bin
'for more help u can contact directly at rfhyd1...@gmail.com
Sub Batch_Print()
Dim Input_Dir, Print_File As String
Input_Dir = InputBox _
("Input directory path containi
28 matches
Mail list logo
