Hello Friends,
I need help in building a code that enables me to export rows from Excel
worksheet to a SharePoint list.
Please see attached. I inserted a button. Once the button is clicked, data
in row 2 should copy over to SharePoint list. On the SharePoint list a new
item should be
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
-
From: Prashant Pawle ppawle.ex...@gmail.com
To: excel-macros@googlegroups.com
Sent: Sun, November 11, 2012 2:54:25 AM
Subject: $$Excel-Macros$$ VBA CODE REQUIRED
Dear Team,
Need a code for listing cell references from all sheets which have
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
Dear Team,
Need a code for listing cell references from all sheets which have too
narrow column width(#).
Sample file attached
Regards,
Prashant
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES (1120+ members already BANNED for violation)
Dear Team
Needs your support. Please find attached two workbooks, description are as
follows:
1. *AMR FORM* - that I used to received from different locations.
2. *Database *- that is the database to store data from *AMR FORM* workbook.
I want the macro code in the *database* sheet linked to
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
Hi,
I am looking for solution to below:-
I receive No. of emails from some people asking for tax advise in Outlook
2003.
Then I create tax advice and I attach the file.
I need to reply to the email received below:-
Hi *Sender*(as per email),
As requested, please find attached below payslip
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 :
).Activate
ActiveCell.Value = sh.Name st
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of KAUSHIK SAVLA
Sent: Monday, August 01, 2011 6:00 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Vba Code required to link every cell
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
@googlegroups.com
Objet : $$Excel-Macros$$ Vba Code Required for Delete Entire Row
Hi Experts,
I want to remove entire row when each cell value =0 in column J see in
attached file.
Anybody suggest me VBA code to delete all 0 value rows.
Thanks
ARPIT KUMAR
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
** **
Regards.
Daniel
** **
*De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
*De la part de* arpit rajput
*Envoyé :* jeudi 28 juillet 2011 11:20
*À :* excel-macros@googlegroups.com
*Objet :* $$Excel-Macros$$ Vba Code Required for Delete Entire Row
$$ Vba Code Required for Delete Entire Row
** **
Hi Experts,
I want to remove entire row when each cell value =0 in column J see in
attached file.
Anybody suggest me VBA code to delete all 0 value rows.
Thanks
ARPIT KUMAR
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
@googlegroups.com]
On Behalf Of arpit rajput
Sent: Thursday, July 28, 2011 2:50 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Vba Code Required for Delete Entire Row
Hi Experts,
I want to remove entire row when each cell value =0 in column J see in
attached file.
Anybody suggest me VBA
: Thursday, July 28, 2011 3:50 PM
To: excel-macros@googlegroups.com
Subject: Fwd: $$Excel-Macros$$ Vba Code required
-- Forwarded message --
From: KAUSHIK SAVLA savla.kaus...@gmail.com
Date: Thu, 28 Jul 2011 11:40:35 +1000
Subject: $$Excel-Macros$$ Vba Code required
To: excel-macros
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
Dear All
Can Anyone help me for following problem.
I want to compare 2 column (which are in different different file).
Example, Consider File A and File B I want to compare column of (File A
,sheet 1, column X) to (File B, sheet 2, Column Y)
There are chances that in (File A ,sheet 1, column X)
Hi Team,
Here I have a requirement to copy folder from one location to another
location which is contain a specific Name.
Ex:
I Have a folder AAA
AAA has 3 Subfolder as aaa1, aaa2, aaa3.
All the above said subfolders contains Each 2 Folders as (aaa1_Input
aaa1_Output, aaa2_Input
To: MS EXCEL AND VBA MACROS excel-macros@googlegroups.com
Sent: Tue, September 21, 2010 12:06:28 AM
Subject: $$Excel-Macros$$ VBA code required for Folder activity
Hi Team,
I have different files in different subfolder in a main folder. Now I
wish to collate all subfolder files
Hi Team,
I have different files in different subfolder in a main folder. Now I
wish to collate all subfolder files to the Mainfolder. The macro has
to go inside each and every subfolder and copy the files and paste it
to a new folder.
As a result of this the all files has to be pasted in one
Hi Excel Gurus,
Many image files(tif)(say 200 files) will be pasted in a particular folder
through fax server and i need to take printout of the same and also keep a
log/list of image that has been printed.
Can a code be created such that i can click a button and the files from that
printer are
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
33 matches
Mail list logo