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...
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...
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")
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
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?