excel – No envía mensajes en API de WhatsApp

Tengo el siguiente codigo en macro de Excel, procesa todo correctamente hasta el punto de sendkeys ahi truena el código, abre la app desktop pero se queda ahí, inclusive pone el mensaje pero no lo envia.
Llevo dos días tratando de corregir el problema pero no doy con el mismo, inclusive cambie el followhyperlink a web.whatsapp.com solo envio 1 mensaje y muy lento

Sub EnviaWhatsapp()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set a = Sheets("Hoja1")
uf = a.Range("A" & Rows.Count).End(xlUp).Row

For x = 2 To uf
conta = conta + 1
telwhatsapp = a.Cells(x, "B")
textwhatsapp = a.Cells(x, "C")

mylinkwhatsapp = "https://api.whatsapp.com/send?phone=" & telwhatsapp & "&text=" & 
textwhatsapp
ActiveWorkbook.FollowHyperlink mylinkwhatsapp

Application.Wait (Now + TimeValue("00:00:02"))
ActiveWindow.Application.SendKeys "{LEFT}"
ActiveWindow.Application.SendKeys "(~)"
ActiveWindow.Application.SendKeys "^W"
Application.Wait (Now + TimeValue("00:00:02"))
ActiveWindow.Application.SendKeys "(~)"

Application.Wait (Now + TimeValue("00:00:02"))

Next x
MsgBox ("¡Excelente Trabajo! Envíamos " & conta & " WhatsApp a los contactos indicados en el 
registro de Microsoft Office Excel... "), vbInformation, "WhatsApps Envíados"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

microsoft excel – Combine multiple workbooks to one workbook

I need to combine multiple workbook to one workbook.

Source workbooks have unique sheet name = “job”

Destination workbook have multiple sheets name

The Below code have 2 issues,

  1. For loop not work
  2. pasted data in Destination workbook create a new sheet. But i need to paste the data to existing sheet.

Sub combine()

'destination worksheets    
    Dim Ar As Worksheet
    Dim nr As Worksheet
    Set Ar = ThisWorkbook.Sheets("sheetAr")
    Set nr = ThisWorkbook.Sheets("Sheetnr")
    'Source workbooks
    Dim FolderPath As String
    Dim Filename As String
    Application.ScreenUpdating = False
    FolderPath = Environ("userprofile" & "DesktopCopy")
    Filename = Dir(FolderPath & "*.xlsx*")
    
    Do While Filename <> ""
    Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
    Dim ws As Worksheet
    Dim AW As Workbook
    
    Set AW = ActiveWorkbook
    Set ws= ActiveWorkbook.Sheets("Job")
    
     For Each AW In ws
     AW.Activate
     Cells.ShownAll
     ws.Copy Ar
     Next AW
     Workbooks(Filename).Close savechanges = True
     Filename = Dir()
    Loop
    Application.ScreenUpdating = True
    End Sub`

export – Exporting multiple lists (x1,y1…n) (x2,y2..n)of different lengths into same excel files separated by spaces of two columns between each (x,y) list?

I have multiple lists like this this with different lengths and different x, y values,

list1 = {{3., 1.49463}, {3.1, 1.49238}, {3.2, 1.49027}, {3.3, 1.48814}, {3.4, 
  1.48592}, {3.5, 1.48366}, {3.6, 1.48158}, {3.7, 1.47997}, {3.8, 
  1.47894}, {3.9, 1.47848}, {4., 1.47824}, {4.1, 1.47892}, {4.2, 
  1.47973}, {4.3, 1.4809}, {4.4, 1.48231}, {4.5, 1.48374}, {4.6, 
  1.48498}, {4.7, 1.48589}, {4.8, 1.4865}, {4.9, 1.4869}, {5., 
  1.48717}}

list2 = {{0.3, 1.70796}, {0.4, 1.69032}, {0.5, 1.66887}, {0.6, 1.65187}, {0.7,
   1.64455}, {0.8, 1.64575}, {0.9, 1.65089}, {1., 1.65581}}

list 3 = {4.1, 1.47892}, {4.2, 1.47973}, {4.3, 1.4809}, {4.4, 1.48231}, {4.5, 
  1.48374}, {4.6, 1.48498}, {4.7, 1.48589}, {4.8, 1.4865}, {4.9, 
  1.4869}, {5., 1.48717}}

and so on until 10 lists and all of them have different lengths with some having (x,y) sets as much as 30 (x1,y1),(x2,y2) … (x30,y30) like that,

i want to list them list this in single excel sheet with two different options whichever you can guide,

list 1 x,y values (next list after two columns separation) –list 2 x,y values– (next list after two columns separation) -**list 3 x,y values****

list 1 x,y values (no separation)- list 2 x,y values– (no separation)- list 3 x,y values

Translation Excel format for equation to mathematical notation

This maybe a dumb question, but how does the formula y(x)=6.17E-04e^1.92x (which Excel has given me for a fitting) can be translated into mathematical notation?

I have tried several interpretations and none of them were correct. Also tried using https://www.wolframalpha.com/ but their interpretation does not seem correct. When I say that it does not seem correct I mean that the value for y(x=1) should be ~3.7.

Does anybody have a simple answer for this?

Thanks a lot 🙂

How to rename the columns when the SharePoint list is exported to Excel

I have made a code that exports a SharePoint List to Excel. The columns of the list are: “Date”, “Before”, “Between”, “After”, “Remark”.

Now in the code I would like to rename the column names “Before”, “Between” and “After” to
“00:00 – 07:59”, “08:00 – 15:59” and “16:00 – 23:59” when it gets exported to Excel.

Is that possible?

This is my code:

$SiteUrl = "xxxxxxxxxxxx"
$Global:selectProperties=@("Datum","Before","Between","After","Opmerkingen");
connect-pnponline -url $SiteUrl -Credential $cred

function ExportList($listName)
{ 
    try 
    {  
        $listItems=(Get-PnPListItem -List $listName -Fields $Global:selectProperties).FieldValues 
        $outputFilePath="c:Temp" + ($listName -replace "/","-") + ".xlsx"
        $hashTable=@()  
        foreach($listItem in $listItems) 
        { 
            $obj=New-Object PSObject             
            $listItem.GetEnumerator() | Where-Object { $_.Key -in $Global:selectProperties } | 
                ForEach-Object {
                    if( $_.Key -eq 'Datum' )
                    {
                        $obj | Add-Member Noteproperty $_.Key $_.Value.ToLocalTime().ToString("dd-MM-yyyy")
                    }
                    else
                    { 
                        $obj | Add-Member Noteproperty $_.Key $_.Value
                    }
                } 
            $hashTable+=$obj; 
            $obj=$null; 
        } 
 
        $hashtable | Export-XLSX $outputFilePath -Table -Autofit -Force
     } 
     catch (Exception) 
     { 
        $ErrorMessage = $_.Exception.Message        
        Write-Host "Error: $ErrorMessage" -ForegroundColor Red         
     } 
} 

excel – Incrementar referência de celula

Olá.
Estou precisando incrementar a referência de célula.
Tenho várias planilhas em uma pasta de trabalho
Em uma planilha Matriz tenho os dados do dia
Na planilha 1 pego esses dados da célula B2
na planilha 2 pego os dados da célula B3 e assim por diante

Na planilha Matriz:

|  Data    |   Quantidade    |
|----------|-----------------|
|22/07/21  |    100 (B2)     |
|23/07/21  |    105 (B3)     |
|24/07/21  |     52 (B4)     |  ...

Na planilha 1:

|Quantidade |   
|-----------|
|    100    |  
 = Matriz!B2

Na planilha 2:

|Quantidade |   
|-----------|
|    105    | 

= Matriz!B2 + 1 ou seja B3

Na planilha 3:

|Quantidade |   
|-----------|
|    52     |



= Matriz!B2 + 2 ou seja B4

Resumindo, como pegar uma referêcia de célula mas com incremento

Obrigado pela ajuda.

P.S estou usando o Google Sheets

excel vba user defined function volatile

I am working with two structured table on two worksheets in one workbook.
I am using my UDF in SheetA which takes 3 arguments as string.
The first argument is ID column, the second argument is the first 8 characters on its column header cell, the third argument is the last 8 characters on its column header cell. The UDF is applied to many other similar cells. The columns will be expanded as time pass by. ID and header cells are all static value. They are not derived from other cells.

The UDF will search TableB by “Application.Match” and draw values from matching rows and columns. If everything is valid, it will return appropriate results.

Sheet1: TableA
| ID | 04/07/21 – 10/07/21 | 11/07/21 – 17/07/21 |
| ——– | ————–| ——————- |
| 123456 | =UDF(TableA:(@(ID):(ID)),LEFT(TableA((#Headers),(04/07/21 – 10/07/21)),8),Right(TableA((#Headers),(04/07/21 – 10/07/21)),8) | =UDF |
| AABBCC | =UDF(TableA:(@(ID):(ID)),LEFT(TableA((#Headers),(04/07/21 – 10/07/21)),8),Right(TableA((#Headers),(04/07/21 – 10/07/21)),8) | =UDF |

Sheet2: TableB
| Date | 123456 | AABBCC |
| —- | —— | —— |
| 04/07/21 | 5.0 | — |
| 05/07/21 | — | 7.5 |
| 06/07/21 | — | 7.5 |
| 07/07/21 | 8 | — |
| 08/07/21 | — | — |
| 09/07/21 | — | — |
| 10/07/21 | — | — |
| 11/07/21 | — | — |

My problem is that my UDF is causing time consuming calculation whenever I edit the tables (i.e. volatile) even I’m not editing those three arguments/related cells.

microsoft excel – VBA – How to Delete Hidden Rows Efficiently

I run a list every day that has varying amount of rows, with different values/texts in them. On average, the list is 1000’s of rows long, but I filter it down to about 50. Is there a way to efficiently delete all those other unused rows using VBA? I need them gone for another part of my macro.

Can I configure MacOS to open CSV and Excel files in Google Sheets?

Can I configure MacOS to open CSV and Excel files in Google Sheets? – Web Applications Stack Exchange

microsoft excel – Just want to condional format to change the color of any date not a specific time period

So, at work we have dozens of CBT courses that we are required to take. Some are annual requirements but most are “one and done” requirements. I’m making a spreadsheet and want to put the letter X in the column for each person that the training is required (to make things more complicated, some training isn’t required for everyone, so I want to put N/A for those or simply leave them blank). I want these letter X’s to show up as red. I can do that with a simple conditional format.

Now, when someone completes a course, I want to put the date in the cell and make the sheet change it to green. NOTE: THERE IS NO EXPIRATION DATE FOR THIS. Everything I google tells me how to change this for various expiration dates. I want the sheet not to care what date is put in. I can put in July 4, 1776 and it should be the same green cell as today.

For the annual ones, I would like the same thing but I want the X to be red and once a date is in it’s green until a year from that date, in which case, it too turns red again.

Any help would be appreciated.

DreamProxies - Cheapest USA Elite Private Proxies 100 Cheap USA Private Proxies Buy 200 Cheap USA Private Proxies 400 Best Private Proxies Cheap 1000 USA Private Proxies 2000 USA Private Proxies 5000 Cheap USA Private Proxies ExtraProxies.com - Buy Cheap Private Proxies Buy 50 Private Proxies Buy 100 Private Proxies Buy 200 Private Proxies Buy 500 Private Proxies Buy 1000 Private Proxies Buy 2000 Private Proxies ProxiesLive.com Proxies-free.com New Proxy Lists Every Day Proxies123.com Best Quality USA Private Proxies