Excel programme

b = Application.WorksheetFunction.Match("Str/BC/" & Cells(j, 3), Sheets(2).Range("G:G"), 0)...............1

******************

'a = CStr(Range("ok")) ' user defined cell hai jo indirect vale concept par kam kar raha hai

******************

'[AA1] = 8 ye vaha use karte hai jaha hum range nahi Lihna chahte hai

******************

'Range("U" & Range("Q2").Value + 1 & ":V" & Range("Q2").Value + 11).ClearContents Yah BBS Master ka hai.

******************

'Frmpersonal.Show

******************

'If Target.Range("A1").Column = 3 Then 'for chaingimg code

******************

'Range("F" & Target.Range("A1").Row & ":O" & Target.Range("A1").Row).Select

******************

'Selection.formula = Chr(70) & ActiveCell.Row

******************

'F = ThisWorkbook.Sheets(2).Range("ContractorName").Rows(i)

******************

'g = "" & F & ".xlsx"

******************

'ActiveWorkbook.SaveAs Filename:="D:\Bill\" & g

******************

'Windows("" & g).Activate

******************

'b = Cells(Rows.count, 1).End(xlUp).Row + 1

******************

'.Range("L" & r + 1).Value = "=Round(H" & r + 1 & "*I" & r + 1 & "*J" & r + 1 _& "*K" & r + 1 & ",3)"

******************

'ad = Application.WorksheetFunction.Match("67(b):Manual Concrete", .Range("B:B"), 0)....................1

******************

' ActiveWindow.SmallScroll Down:=15

******************

' ActiveSheet.PageSetup.PrintArea = "$A$1:$A$24"

******************

' ActiveWindow.SmallScroll Down:=9

******************

'AI_QsE = AI_QsE + CInt(Mid(rng.Value, i, 1))

******************

'AI_LetterOut = AI_LetterOut & Mid(rng.Value, i, 1)

******************

'Application.WorksheetFunction.CountA(Sheet1.Range(s)) > 0

******************

'rng.Value = rng.Value & vbCrLf & Sheet1.Cells(i, 14).Value

******************

'47 - /

'48 - 57 0 to 9

'65 - 90 A to Z

'97 -122 A to Z

******************

3 views0 comments

Recent Posts

See All