harsha547

license: mit

harsha547

Sub Sortcolumns()

 Dim lcolumn As Long
 
 Dim lookuprng As Range
 
 lcolumn = Sheet1.Range("A4").CurrentRegion.Columns.Count
 
 Set lookuprng = Sheet2.Range("B2:B10")
 

harsha547

Sub columndelete()

  Dim lrow As Long
  
  Dim lcolumn As Long
  
  lcolumn = Sheet1.Range("A4").CurrentRegion.Columns.Count
  
  lrow = Sheet2.Range("f1").CurrentRegion.Rows.Count

harsha547

Private Sub UserForm_Initialize()
  
  With chDays
     .AddItem "Monday"
     .AddItem "Tuesday"
     .AddItem "Wednesday"
  End With
  
End Sub

harsha547

' Turn on Microsoft Internet controls in VBA Reference
' Turn on Microsoft HTML Library

Public Const ERROR_EMPTY_URL  As Long = 514
Public Const CELL_URL As String = "$C$2"
Public Const CELL_FIRSTCELL As String = "$C$3"
Public Const CELL_TABLE_NUMBER AS String = "$C$4"

' Class Module to web connect

harsha547

Sub sbDelete_Columns_IF_Cell_Cntains_String_Text_Value()

  Dim lColumn As Long
  Dim iCntr As Long
  lColumn = 20

   For iCntr = lColumn To 1 Step -1
        If Cells(1, iCntr) = “Your String” Then ‘ You can change this text
            Columns(iCntr).Delete
        End If

harsha547

Sub GettingFile()

    Dim SelectedFile As String
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Select File"
        .ButtonName = "Confirm"
        .InitialFileName = "C:\"
       

harsha547

Sub RemoveHeader()

   Dim rg As Range
   
   Set rg = shTransactions.Range("B3").CurrentRegion
   
   Dim rgNew As Range
   Set rgNew = rg.Resize(rg.Rows.Count-1).Offset(1)
   
   Dim i As Long

harsha547

Sub findd()

Dim rg As Range

Set rg = Range("E:E").Find("Bulgaria")

Debug.print rg.offset(0,1)

End Sub

harsha547

Sub Range()

  Dim arr As Variant
  
  arr =  sharr.Range("A2:D11").Value
  
  Dim i As Long , j As Long
  
  For i = LBound(arr,1) To UBound(arr,1)
      For j = LBound(arr,2) To UBound(arr,2)