Help identifying what each line of code does (Short code!)

[sanantonio]

Hi All,

Apologies in advance some of the code is in Portuguese as this is a macro borrowed from my colleagues in one of our Portuguese offices. Folha = Sheet. I can't decipher what the "lr" or "i" would be in English though?

Sub SendKeysWFM()

Dim lr As Long
Dim i As Long
  
lr = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row



For i = ActiveCell.Row To lr

'Folha5.Cells(i, 2).Copy


Application.WindowState = xlMinimized
Application.SendKeys ActiveSheet.Cells(i, ActiveCell.Column), True
Application.SendKeys ("~"), True


Next i
Application.SendKeys "{NUMLOCK}"
End Sub

My Portuguese colleagues are using this excel macro to load data into a browser based piece of software that is unique to our business. We have the same piece of software, albeit in English(!). But when I run the macro all it seems to do is minimize my excel (The line Application.WindowState = xlMinimized presumably) but nothing else seems to happen.

Can anyone identify what each line of code is actually doing? I'm used to coding vba to SAP and there's a lot of code involved that lets you know when the excel is talking to SAP, I expected something similar here but it seems very very basic.

 

[shinigamilight]

You have to send the keys somewhere where are the keys going?? It's just minimizing the excel software. You can try this code how to send keys to other programs. Open chrome and run this code

Sub Copy_102()
        
          AppActivate "Chrome"
          Application.SendKeys "%d"
         Application.Wait Now + TimeValue("00:00:01")
         Application.SendKeys "Weather~"
        
        
End Sub

 

[sanantonio]

Ah okay, so "Send Keys" is the command that can send things like text or a value in a cell(s).

So in your example what is the "%d" doing?

and in my example what is the "~" and "{Numlock}" doing?

 

[shinigamilight]

SendKeys statement (VBA)

Office VBA reference topic

learn.microsoft.com