Search results

It uses IE 9

The same headers and the same code works for windows 10 but not for windows 7 I tried to enable TLS 1.2 but the same problem persists.

I have the following working code on windows 10 Sub Test() Const sURL As String = "https://oppaapi.emis.gov.eg/api/pl/IsDocumentIdValid" Dim a, ws As Worksheet, sh As Worksheet, http As Object, sNationalID As String, sResp As String Set ws = shINF: Set sh = shSN Set http =...

Not so clear logic but try Sub Test() Dim t As Long, x As Long, i As Long t = Range("D4").Value Range("L4:L8").Value = Range("K4:K8").Value For i = 4 To 8 Range("L" & i).Value = Range("L" & i).Value - 1 If Range("L" & i).Value < 0 Then Range("L" & i).Value = 0...

@nick_jco Thanks goes to Mr. Marc. This is his code. I just guided you.

It is working at my side. You have to put Marc's code in the worksheet module. If you prefer the standard module change it a little Sub Demo1() Dim Pic As Picture Application.ScreenUpdating = False For Each Pic In ActiveSheet.Pictures...

Try this code Sub Create_Folders_Tree() Dim ws As Worksheet, sParentFolder As String, sMainFolder As String, sMainFolderPath As String, lr As Long, i As Long, ii As Long, iii As Long Set ws = ThisWorkbook.Sheets("Sheet1") lr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row...

Try this code Sub Demo() With CreateObject("WinHttp.WinHttpRequest.5.1") .Open "GET", "https://06sogutma.com/", False .setRequestHeader "DNT", "1" On Error Resume Next .send Debug.Print "Phone: " & Trim(Split(Split(.responseText, """>Tel")(1), "<")(0))...

It is working partially till the lawyer id 14785 MsgBox contactLink.getAttribute("href")

Now I got Object doesn't support this method or property at this line contactLink = sBase & Replace(contactLink.getAttribute("href"), "about:", "")

Yes, you are right. I could get some tabular content before getting the error

I am using Office 365 and I got Invalid use of Null at this line MsgBox lastPage.Length

I have faced this error before The solution is to comment these two lines Dim HtmlDoc As HTMLDocument Set HtmlDoc = New HTMLDocument And use these two lines instead Dim HtmlDoc As Object Set HtmlDoc = CreateObject("HtmlFile")

Greate my tutor. But as for the unique values, I tried only 1 and 4 and 9 so I expected three sub-tables but I got unnecessary tables.

You are great and aweosme. Thank you very much for the incredible support and solutions.

Amazing my tutor. Thank you very much As for Demo3, I tried to get the output to be the number of columns (not the headers text) but I couldn't In fact, the target is to get 1d array of the columns numbers (to use later in reordering the columns) To get what I mean I will use the 1d array like...

No need for a workbook. Only the headers of column A "Header1" .. column B "Header2" and so on The target is to get the columns numbers in an array but in specific order. The non-matching first then the matching ones I already done this by two variables s() and t() and then concatenate both of...

Hello everyone I have the first row with some headers in about 12 columns and I need to search for specific headers from 1d array. a = Array("Header3", "Header5", "Header10") For Each c In Range("A1").CurrentRegion.Rows(1).Cells x = Application.Match(c.Value, a, 0) If...

Try this code Sub Test() Dim r As Integer, g As Integer, b As Integer, i As Long Application.ScreenUpdating = False With ActiveSheet For i = 2 To .Cells(Rows.Count, "H").End(xlUp).Row If .Cells(i, 8) <> "" And .Cells(i, 9) <> "" And .Cells(i, 10) <> ""...

To make it dynamic replace this line For Each c In Range("A2:A5").Rows with this line For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Rows

Try Sub Test() Dim c As Range, r As Range, cnt As Integer Set r = Range("D1") For Each c In Range("A2:A5").Rows cnt = c.Offset(, 1).Value r.Resize(cnt, 1).Value = c.Value Set r = r.Offset(cnt, 0) Next c End Sub

Yes the UDF EncodeUriComponent is working well too. I have replaced the existing UDF with the new one and replaced the lines in your code and it works without any problems at all. What is the office version did he have? I have Office 32 Bit version installed in Windows 10 64 Bit.

Maybe you have to set an object for the element then check if the object is nothing or not .. Something like that On Error Resume Next dim elem as object set elem = Htmldoc.querySelectorAll("a.functionlink[href*='__doPostBack']")(1) On Error Goto 0 If Not elem is Nothing Then ....Do stuff End If

Try this line like that (maybe solve the problem) elem = Htmldoc.querySelectorAll("a.functionlink[href*='__doPostBack']")(1).getAttribute("href")

Hello my friend I am using Windows 64 Bit and I tried your code and I got the message "Parcel is in tax sale " at the end so the code is working fine on Windows 10 64 Bit with no problems. Can you specify the error that appears within the person who tested the code?