thoriqmacto

=OFFSET(Import_LOOP!$A$2,0,0,COUNTA(Import_LOOP!$A:$A)-1,1)

thoriqmacto

For Each MyCell In Range("A2:A6")

thoriqmacto

Function CheckSheet(pName As String) As Boolean
    Dim IsExist As Boolean
    
    IsExist = False
    For Each ws In Worksheets
        If ws.Name = pName Then
            IsExist = True
            Exit For
        End If
    Next

thoriqmacto

(function(){
  var app = angular.module('foo',[]);
  
  app.controller('FooController', function(){
    // bla...bla...bla...
  });
})();

thoriqmacto

'For columns which has non-blank cells
Range("A" & Rows.Count).End(xlUp).Row

'For columns which has active cells
Range("A1").SpecialCells(xlCellTypeLastCell).Row

thoriqmacto

'If you want to find the last column used in a particular row you can use:

Dim lColumn As Long

lColumn = ws.Cells(1, Columns.Count).End(xlToLeft).Column

thoriqmacto

Sub browseFile()
    Dim desPathName As Variant
    desPathName = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Please select a file")
    Range("D8").Value = desPathName
End Sub

thoriqmacto

Sub printCbox()
    Dim i As Integer
    Dim jmlhCSN As Integer
    Dim left, topp As Double
    Dim width, height As Double
    
    jmlhCSN = 16
    
    For i = 1 To jmlhCSN
        left = 10 'Cells(i,"A")

thoriqmacto

Public Function GetResponseHTML(ByVal strUrl As String, ByVal className As String, ByVal strDelimiter As Variant, Optional strRespText As String = "", Optional flagVerbose As Boolean = False) As Variant
    Dim oHtml       As HTMLDocument
    Dim oElement    As Object
    Dim i           As Integer
    Dim out() As Variant
    Set oHtml = New HTMLDocument
    
    With CreateObject("WINHTTP.WinHTTPRequest.5.1")
       .Open "GET", strUrl, False
       .send

thoriqmacto

<?php

class errorObject{
	private $__error;
	
	public function __construct($error){
		$this->__error = $error;
	}

	public function getError(){