To,
i have following macro for spreadsheet.
which shows following syntax error
BASIC Syntax error unknown data type worksheet
please help me !
THE CODE .....
code:
---------------------------------------------------------------------------
---
Public Sub SummarizePoints() Dim TargSh As Worksheet Dim Pt, SrcSh Dim
TargCol As Integer
'DEFINE TARGET/OUTPUT SHEET Set TargSh = Worksheets("Sheet3")
'LOOP THRU ALL SOURCE SHEETS For Each SrcSh In Array("Sheet1", "Sheet2")
'LOOP THRU EACH ROW, THAT HAS NUMBERS IN COL B OF SOURCE For Each
Pt In Sheets(SrcSh).Columns("B:B").SpecialCells(xlCellTypeConstants, 1)
'FIND THE CORRECT TARGET COLUMN BY FINDING PT HEADER TargCol =
PointColumn(TargSh.Name, Pt) 'FIND THE FIRST EMPTY ROW IN TARGET
COLUMN NxRow = TargSh.Cells(65536, TargCol).End(xlUp).Row + 1
'PLACE NAME IN TARGET COLUMN !!!!!!!! TargSh.Cells(NxRow, TargCol).Value
= Pt.Offset(0, -1).Value Next Pt ' loop points Next SrcSh '
loop sheets
End Sub
Public Function PointColumn(ShName, PtNum) As Integer With
Worksheets(ShName).Rows("1:1") Set c = .Find(PtNum, LookIn:=xlValues,
lookat:=xlWhole) If Not c Is Nothing Then ' if pt column found
PointColumn = c.Column Else ' if pt column NOT found
PointColumn = Sheets(ShName).Cells(1, 256).End(xlToLeft).Column + 1
End If End With End Function
---------------------------------------------------------------------------
---
thanks from kamlakar
----------------------------------------------------------------------
--- Scan Report ---------------------------------------------------
Scanning Options Used :
-----------------------
Scan inside .ZIP and .ARJ files.
Disinfect whenever possible.
Scan compressed executables.
Scan of all type of files.
Remove infected Contents in attachments (Neutralize).
Detect standard Zip files irrespective of file extension.
Clean inside standard Zip files.
From: "Bumper India Pvt. Ltd." <[EMAIL PROTECTED]>
Subject: help on macro correction
01. Name: noname (Type: text/plain)
>> * No virus found * <<
02. Name: noname (Type: text/html)
>> * No virus found * <<
CxProtect Cleaned 0 infections and Neutralized : 0
----------------------------------------------------------------------
