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
******************
Comments