Posts

Excel VBA To Send Data From Excel Sheet To The Google Sheet

Image
  VBA Code - Option Explicit Private Sub btnSendDataToGoogleSheet_Click()     Dim EmpId As Long, EmpName As String, Address As String, Gender As String, Desi As String     Dim HeaderName As String, SendID As String, Url1 As String, Url2 As String, FinalUrl As String     Dim TicketInfo As ServerXMLHTTP60     Dim TRow As Long, CRow As Long     TRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row     If TRow < 2 Then Exit Sub     For CRow = 2 To TRow         EmpId = Sheet1.Range("A" & CRow).Value         EmpName = Sheet1.Range("B" & CRow).Value         Address = Sheet1.Range("C" & CRow).Value         Gender = Sheet1.Range("D" & CRow).Value         Desi = Sheet1.Range("E" & CRow).Value         Url1 = "https://docs.google.com/forms/d/e/1FAIpQLSeUUjHkOE3H8YiIGHlmIymzKxsBuPDHN...
Post a Comment
Read more

Data Entry Form Connected With Database (Excel Sheet)

Image
VBA Code - Option Explicit Dim curRecNo As Long Private Sub btnFirst_Click()          If Me.cmbEmpName.ListCount > 0 Then              Me.cmbEmpName.ListIndex = 0                  curRecNo = Me.cmbEmpName.ListIndex + 1         Me.lblCurrentRecNo.Caption = "Record No.: " & curRecNo              End If      End Sub Private Sub btnLast_Click()     If Me.cmbEmpName.ListCount > 0 Then              Me.cmbEmpName.ListIndex = Me.cmbEmpName.ListCount - 1                  curRecNo = Me.cmbEmpName.ListCount         Me.lblCurrentRecNo.Caption = "Record No.: " & curRecNo              End If          End Sub Private Sub btnNext_Click()   ...
Post a Comment
Read more

Excel VBA To Insert Multiple Images From A Folder To Worksheet

Image
  VBA Code - Option Explicit Private Sub btnInsertPictures_Click()     Dim photo As Shape     Dim ImgNameCol As Integer, ImgCol As Integer     Dim CCol As Integer, TCol As Integer     Dim CRow As Integer, TRow As Integer     Dim Ws As Worksheet     Dim imgno As Integer     imgno = 1     Set Ws = ActiveWorkbook.Sheets(Me.cmbSheets.Text)     '************ delete all images **************     Dim Shp As Shape     For Each Shp In Ws.Shapes         If VBA.Left(Shp.Name, 8) = "EmpImage" Then             Shp.Delete         End If     Next Shp     '*********************************************     CRow = Me.txtHeadingRow.Text     TCol = Ws.Cells(CRow, Columns.Count).End(xlToLeft).Column     For CCol = 1 To TCol   ...
Post a Comment
Read more