Search:
Type: Posts; User: marcuz_jozef
Search:
Search took 0.02 seconds.
-
===
is there a way instead of adding new sheet to assign specific sheet? Thanks for the help
Set sht = ThisWorkbook.Sheets.Add(, sht) <--- PREV
Set sht = ThisWorkbook.Sheets.Add(, sht) <---...
-
it works, thanks so much!!!!!
-
here is the new code... hope you could still help me if i still have need to revise.
Sub generate()
Dim timeStart As Date, timeEnd As Date, dateDate As Date, dS As Date, dE As Date
Dim lastRow...
-
thanks for the code
but each file is located on a different folder not on the same location. Is there a way we could or help me revise the code on the path?
-
====
thanks for the code however when i tried it the header also change it removes the special character...would you be able to help me on not to remove the special char on the header?
Sub...
-
hi -
I badly need your help to provide me a code to remove special character and replace it with the space. All I need to replace are column A, B, C, D. Also, need also help to convert the column...
-
still need your help on this.
-
need your help here... to make this more accurate... like changing the format when done doing the paste values and convert it directly to values.
Range(Selection, Selection.End(xlToRight)).Select...
-
-- got some error changingn the code you have metioned see below.
Run time error 6
For i = 1 To lastRow
erow = sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Row
...
-
=== are you able to revise the whole code?
-
Need help to consolidate 4 workbook and put it on the sheet per workbook
i have a working workbook and this workbook have a module for the macro to work.
the function of this workbook is to...
-
Sub generate()
Dim timeStart As Date, timeEnd As Date, dateDate As Date, dS As Date, dE As Date
Dim lastRow As Long, erow As Integer, sheet1 As Worksheet, sheet2 As Worksheet
Dim PSheet As...
-
=====
is this the one your looking for?
Public Sub PopulateFormulas(thisSheet As Worksheet)
Dim lastRow As Long
lastRow = thisSheet.UsedRange.Rows.Count
...
-
-
this area is working now
lastRow = thisSheet.UsedRange.Rows.Count
thisSheet.UsedRange.Cells(2, "T").FormulaR1C1 = "=VLOOKUP(RC[-10],roster!C[-19]:C[-16],4,0)"
...
-
==== from this part im having problem = saying "method of range of object global failed"
thisSheet.Range("T2:AA2").AutoFill Destination:=Range("T2:AA")
thisSheet.Range("T2").PasteSpecial...
-
===== please check if this is ok=====
Sub generate()
Dim timeStart As Date
Dim timeEnd As Date
Dim lastRow As Long
Dim erow As Integer
Dim sheet1 As Worksheet
Dim sheet2 As Worksheet
Dim...
-
Can anyone help me on my code below to simplify... im not a programmer but i just tried to google everything and record some steps. But if you could help me simply the code below would be very much...
-
Public Sub PopulateFormulas(thisSheet As Worksheet)
Dim lastRow As Long
lastRow = thisSheet.UsedRange.Rows.Count
thisSheet.UsedRange.Cells(2, "T").FormulaR1C1 =...
-
Sub generate()
Dim timeStart As Date, timeEnd As Date, dateDate As Date, dS As Date, dE As Date
Dim lastRow As Long, erow As Integer, sheet1 As Worksheet, sheet2 As Worksheet
Dim PSheet As...
|
Click Here to Expand Forum to Full Width
|