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 To
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
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 Pawle
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 koul.ash...@gmail.com wrote:
Sub sample1()
Dim wk As Worksheet
Dim cl As
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
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 :
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
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(Ji).EntireRow.Delete
end if
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 =
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
Thaks Daniel,
your logic is super.
On Thu, Jul 28, 2011 at 4:09 PM, Daniel dcolarde...@free.fr wrote:
Hi,
** **
Another way to do it :
** **
Sub test()
Dim rgRange As Range
With Sheets(Report)
Set rgRange = Range(.[A1], .Cells(.Rows.Count,
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
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
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
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)
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
--
, 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
application.screenupdating=false
j
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
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 @
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
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 All
Can
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
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
25 matches
Mail list logo