Ejecutar macro si la celda de inicio de lamisma está vacía

publicado el 6 de noviembre13 años

Buenas tardes. soy nuevo en este magnífico foro que he encontrado. Mi consulta es la siguiente: tengo una hoja excel donde en la columna "A" hay nombres de clientes aunque alguna celda está vacía correspondiendose con el nombre de cliente de la inmediata anterior según fichero adjunto

Tengo ya una macro creada con el grabador de macro que me suma los valores de la columna "C" cuando me posiciono sobre la celda "A" que está vacía. el problema es que también (obviamente) se ejecuta la macro si el cursor está en una celda que no está vacía. ¿Me podéis decir qué tendría que insertar en la macro ya realizada)

Muchas gracias

demo.xls

publicado el 6 de noviembre13 años

En el adjunto no hay macro.

publicado el 6 de noviembre13 años

Autor

Perdona, tienes toda la razón, con la emoción me olvidé de adjuntar la macro, Como no sé como adjuntar el fichero, te he hecho un copy-paste... Gracias

Sub Macro2()

' Macro2 Macro

' AGRUPA CLIENTES EN MANUAL

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=RC[-1]+R[-1]C[-1]"

ActiveCell.Select

Selection.Copy

ActiveCell.Offset(-1, -1).Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlUp

End Sub

publicado el 6 de noviembre13 años

Vamos por partes, esta macro tal como está no se ejecuta de forma automática, es decir debes ejecutarla de forma manual.

Para que se ejecute automáticamente necesita estar asociada a un evento de hoja "Sheet1" que no adjuntas.

publicado el 6 de noviembre13 años

Podrías hojear esto.

En la ayuda de VB Excel aparece esto

Referencia del programador de Excel

WorkSheet.Change (evento)

Se produce cuando alguna celda de la hoja de cálculo es modificada por el usuario o por un vínculo externo.

Sintaxis

expresión.Change(Target)

expresión Variable que representa un objeto WorkSheet.

Parámetros

Nombre Obligatorio/Opcional Tipo de datos Descripción

Target Obligatorio Range Rango modificado. Puede ser más de una celda.

Valor devuelto

Nothing

Comentarios

Este evento no se produce si las celdas se modifican al realizar una actualización. Use el evento Calculate para detectar si se ha actualizado una hoja.

Ejemplo

En este ejemplo se cambia a azul el color de las celdas modificadas.

Visual Basic para aplicaciones

Private Sub Worksheet_Change(ByVal Target as Range)

    Target.Font.ColorIndex = 5

End Sub [/CODE]

Con esto, lo que interpreto que necesitas

[CODE]Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" And Target.Value <> "" Then 'Cambia A1 por la celda/rango que necesites
'y el operador <;>;=;<>; por el que necesites
MsgBox "El valor de A1 ha cambiado" 'Aqui tu macro
End If
End Sub[/CODE]

publicado el 6 de noviembre13 años

Autor

Gracias a todos por los comentarios. Macro Antonio, no quiero que la macro se ejecute de forma automática, al menos de momento; lo que sí necesitaría es que, al poner el cursor sobre una celda de la columna "A", si esa celda está vacía, al ejecutar la macro haga la función que ahora mismo hace, pero que, si esa celda "Ax" tiene algún valor, que la macro, a pesar de darle la orden de ejecutar no haga nada. Muchas gracias.

PD.- No soy experto en macros, ésa que envié, la hice con el grabador de macros que incorpora excel

publicado el 6 de noviembre13 años

Creo que yo lo he "pillao"

[COLOR=#333333]Sub Macro2()[/COLOR]

[COLOR=#333333]'[/COLOR]

[COLOR=#333333]' Macro2 Macro[/COLOR]

[COLOR=#333333]' AGRUPA CLIENTES EN MANUAL[/COLOR]

[COLOR=#333333]'[/COLOR]

[COLOR=#333333]'

[/COLOR]

[B]if Trim([COLOR=#333333]ActiveCell) <> "" Then Exit Sub 'Si la celda contiene información fin[/COLOR][/B]


[COLOR=#333333]ActiveCell.Offset(0, 3).Range("A1").Select[/COLOR]

[COLOR=#333333]ActiveCell.FormulaR1C1 = "=RC[-1]+R[-1]C[-1]"[/COLOR]

[COLOR=#333333]ActiveCell.Select[/COLOR]

[COLOR=#333333]Selection.Copy[/COLOR]

[COLOR=#333333]ActiveCell.Offset(-1, -1).Range("A1").Select[/COLOR]

[COLOR=#333333]Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/COLOR]

[COLOR=#333333]:=False, Transpose:=False[/COLOR]

[COLOR=#333333]ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select[/COLOR]

[COLOR=#333333]Application.CutCopyMode = False[/COLOR]

[COLOR=#333333]Selection.Delete Shift:=xlUp[/COLOR]

[COLOR=#333333]End Sub[/COLOR][/CODE]

publicado el 6 de noviembre13 años

Autor

Creo que yo lo he "pillao"
[COLOR=#333333]Sub Macro2()[/COLOR]

[COLOR=#333333]'[/COLOR]

[COLOR=#333333]' Macro2 Macro[/COLOR]

[COLOR=#333333]' AGRUPA CLIENTES EN MANUAL[/COLOR]

[COLOR=#333333]'[/COLOR]

[COLOR=#333333]'

[/COLOR]

[B]if Trim([COLOR=#333333]ActiveCell) <> "" Then Exit Sub 'Si la celda contiene información fin[/COLOR][/B]


[COLOR=#333333]ActiveCell.Offset(0, 3).Range("A1").Select[/COLOR]

[COLOR=#333333]ActiveCell.FormulaR1C1 = "=RC[-1]+R[-1]C[-1]"[/COLOR]

[COLOR=#333333]ActiveCell.Select[/COLOR]

[COLOR=#333333]Selection.Copy[/COLOR]

[COLOR=#333333]ActiveCell.Offset(-1, -1).Range("A1").Select[/COLOR]

[COLOR=#333333]Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/COLOR]

[COLOR=#333333]:=False, Transpose:=False[/COLOR]

[COLOR=#333333]ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select[/COLOR]

[COLOR=#333333]Application.CutCopyMode = False[/COLOR]

[COLOR=#333333]Selection.Delete Shift:=xlUp[/COLOR]

[COLOR=#333333]End Sub[/COLOR][/CODE]
Muchas, muchas gracias, en un rato lo pruebo y te comento...

Saludos

[color=blue]- - - - - Mensaje combinado - - - - -[/color]

¡¡ Muchisimas gracias !! Parece que, en principio funciona.

Una "cosita" más. ¿ que tendria que añadir a la ejecucuón si quisiera que la macro se ejecutase de forma automática para todo el rango de la columna "A" que tuviera algún valor?, es decir, podría haber celdas vacías entre medias de otras con valores y eso habría que detectarlo para no detener la macro al ver la primera celda vacia.

Muchísimas gracias por tu valiosa ayuda.

publicado el 8 de noviembre13 años

La verdad, bien, bien del todo no se que es lo que quieres hacer, yo he interpretado esto.

demo (1).xls

publicado el 9 de noviembre13 años

Autor

Gracias en primer lugar Macro antonio por tu paciencia... No es eso. Lo que ahora necesitaría sería una macro que se ejecutase de forma automática partiendo de las siguientes premisas:

1.- Cursor posicionado sobre A1

2.- Búsqueda automatica en la columna "A" hasta encontrar una celda vacía, supongamos que es A20

3.- Sumar c20+c19

4.- Convertir esa suma en valor numérico ( no con fórmula) y colocarlo en C19

5.- Borrar la fila A20

6.- Buscar la siguiente celda en columna "A" que cumpla la condición de vacía y volver a ejecutar.

Detener la macro cuando encuentre una celda en la columna A que contenga Grand Total

Muchas gracias por tu valiosa ayuda

5 weeks later...

publicado el 9 de diciembre12 años

Autor

Muchas gracias a todos por las ayudas recibidas. Finalmente he conseguido " a pedal" hacer funcionar la macro de forma automática. Podéis dar el tema por SOLUCIONADO

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

194 Archivos
100 Comentarios
30 Revisiones
Última descarga

Nuevo mapa de municipios españoles
- 2

Crear un loop para emitir recibos

Prueba con tu código modificado

Por JSDJSD, · publicado el viernes a las 17:211 día
Crear un loop para emitir recibos

Sub Imagen13_Haga_clic_en() Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Dim rutaArchivo As String Dim Email As CDO.Message Dim t As Single Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveSheet.Unprotect "4324" '--- GENERAR IMAGEN DEL RECIBO --- With Range("H7:R34") Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height .CopyPicture End With With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto) .Activate .Chart.Paste '---- RUTA DEL ARCHIVO (CORREGIDO) ---- rutaArchivo = "C:\Users\Usuario\Google Drive\LOCACIONES\REC. PROPIETARIOS\" & _ Format(Range("Q20"), "mmmYY") & " - " & _ Range("Q9") & " - " & _ Range("P17") & " - " & _ Range("K19") & ".JPG" .Chart.Export rutaArchivo .Delete End With 'Guardar ruta en AK30 por compatibilidad Range("AK30").Value = rutaArchivo '--- PEGAR BLOQUE DE DATOS --- Range("AH6").Copy Range("AH9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("Y7:AI33").Copy Range("H7").PasteSpecial xlPasteAll ActiveSheet.Protect "4324" ActiveWorkbook.Save '--- PREPARAR ENVÍO DEL MAIL --- Set Email = New CDO.Message correo_origen = "nqn.negocios@gmail.com" Clave_correo_origen = "wkfhaapcnjljbwju" correo_destino = Range("AK27").Value Asunto = Range("AK28") Mensaje = Range("AK29") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With '--- VALIDAR ARCHIVO ANTES DE ENVIAR --- t = Timer Do While Dir(rutaArchivo) = "" And Timer - t < 5 DoEvents Loop If Dir(rutaArchivo) = "" Then MsgBox "ERROR: El archivo no se generó: " & rutaArchivo, vbCritical Exit Sub End If '--- ENVIAR MAIL --- With Email .To = correo_destino .From = correo_origen .Subject = Asunto .TextBody = Mensaje .Configuration.Fields.Update .AddAttachment rutaArchivo On Error Resume Next .Send End With End Sub Sub powerbuttonINQ() Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single Dim rutaArchivo As String Dim Email As CDO.Message Dim t As Single Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveSheet.Unprotect "4324" '--- GENERAR IMAGEN DEL RECIBO --- With Range("H7:R33") Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height .CopyPicture End With With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto) .Activate .Chart.Paste rutaArchivo = "C:\Users\Usuario\Google Drive\LOCACIONES\REC. INQUILINOS\" & _ Format(Range("Q20"), "mmmYY") & " - " & _ Range("Q9") & " - " & _ Range("P17") & " - " & _ Range("J17") & ".JPG" .Chart.Export rutaArchivo .Delete End With Range("AK30").Value = rutaArchivo Range("AH6").Copy Range("AH9").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Range("Y7:AI33").Copy Range("H7").PasteSpecial xlPasteAll ActiveSheet.Protect "4324" ActiveWorkbook.Save '--- EMAIL CONFIG --- Set Email = New CDO.Message correo_origen = "nqn.negocios@gmail.com" Clave_correo_origen = "wkfhaapcnjljbwju" correo_destino = Range("AK27").Value Asunto = Range("AK28") Mensaje = Range("AK29") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Clave_correo_origen .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With '--- VERIFICAR ARCHIVO --- t = Timer Do While Dir(rutaArchivo) = "" And Timer - t < 5 DoEvents Loop If Dir(rutaArchivo) = "" Then MsgBox "ERROR: El archivo no se generó: " & rutaArchivo, vbCritical Exit Sub End If '--- ENVIAR --- With Email .To = correo_destino .From = correo_origen .Subject = Asunto .TextBody = Mensaje .Configuration.Fields.Update .AddAttachment rutaArchivo On Error Resume Next .Send End With End Sub

Por JSDJSD, · publicado el viernes a las 17:191 día
Crear un loop para emitir recibos

Hola! como estás?
Ahora parece ser que quisiera funcionar la macro, pero no he logrado que llegue hasta el final porque me arroja error cuando tiene que adjuntar el archivo (lo cual normalmente funciona bien)... no lo entiendo, porque estuve revisando si el archivo seguía guardandose con el mismo formato y en la misma carpeta y, por lo que vi, está todo correcto.

Buenas tardes!
Estuve haciendo la prueba. La macro no llega a finalizar porque arroja el error que muestro en los archivos adjuntos. No entiendo por qué no logra encontrar los archivos al ejecutar el loop, porque si utilizo la macro original (es decir, sin el loop), funciona correctamente.
Se me ocurría que quizá al copiar y pegar el codigo en la celda P17 quizá estuviera poniendo algo extra en el nombre del archivo a crear que hiciera que el recibo creado no se guardara exactamente con el mismo nombre por el que luego la macro lo intentaría localizar el para enviarlo por mail, pero revisé y aparentemente los archivos se guardan con el mismo formato que se guardaron siempre.
Sabrán qué puede ser?

Por Corvette, · publicado el jueves a las 18:032 días
FORMULA EXCEL PARA VALIDAR UN NÚMERO DE CUENTA BANCARIA

Hola Susana.
¿No puedes usar una Macro?
No te preocupes, prueba con esta formula, suponiendo que el IBAN de la cuenta está en A2:
=SI(EXTRAE(A2;13;2)=SI(11-RESIDUO(EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");1;1)*1+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");2;1)*2+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");3;1)*4+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");4;1)*8+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");5;1)*5+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");6;1)*10+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");7;1)*9+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");8;1)*7+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");9;1)*3+EXTRAE(TEXTO(EXTRAE(A2;5;4)*3&EXTRAE(A2;9;4);"0000000000");10;1)*6;11)=10;1;SI(11-RESIDUO(EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");1;1)*1+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");2;1)*2+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");3;1)*4+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");4;1)*8+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");5;1)*5+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");6;1)*10+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");7;1)*9+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");8;1)*7+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");9;1)*3+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");10;1)*6;11)=11;0;11-RESIDUO(EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");1;1)*1+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");2;1)*2+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");3;1)*4+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");4;1)*8+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");5;1)*5+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");6;1)*10+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");7;1)*9+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");8;1)*7+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");9;1)*3+EXTRAE(TEXTO(EXTRAE(A2;5;4)&EXTRAE(A2;9;4);"0000000000");10;1)*6;11)))&SI(11-RESIDUO(EXTRAE(EXTRAE(A2;15;10);1;1)*1+EXTRAE(EXTRAE(A2;15;10);2;1)*2+EXTRAE(EXTRAE(A2;15;10);3;1)*4+EXTRAE(EXTRAE(A2;15;10);4;1)*8+EXTRAE(EXTRAE(A2;15;10);5;1)*5+EXTRAE(EXTRAE(A2;15;10);6;1)*10+EXTRAE(EXTRAE(A2;15;10);7;1)*9+EXTRAE(EXTRAE(A2;15;10);8;1)*7+EXTRAE(EXTRAE(A2;15;10);9;1)*3+EXTRAE(EXTRAE(A2;15;10);10;1)*6;11)=10;1;SI(11-RESIDUO(EXTRAE(EXTRAE(A2;15;10);1;1)*1+EXTRAE(EXTRAE(A2;15;10);2;1)*2+EXTRAE(EXTRAE(A2;15;10);3;1)*4+EXTRAE(EXTRAE(A2;15;10);4;1)*8+EXTRAE(EXTRAE(A2;15;10);5;1)*5+EXTRAE(EXTRAE(A2;15;10);6;1)*10+EXTRAE(EXTRAE(A2;15;10);7;1)*9+EXTRAE(EXTRAE(A2;15;10);8;1)*7+EXTRAE(EXTRAE(A2;15;10);9;1)*3+EXTRAE(EXTRAE(A2;15;10);10;1)*6;11)=11;0;11-RESIDUO(EXTRAE(EXTRAE(A2;15;10);1;1)*1+EXTRAE(EXTRAE(A2;15;10);2;1)*2+EXTRAE(EXTRAE(A2;15;10);3;1)*4+EXTRAE(EXTRAE(A2;15;10);4;1)*8+EXTRAE(EXTRAE(A2;15;10);5;1)*5+EXTRAE(EXTRAE(A2;15;10);6;1)*10+EXTRAE(EXTRAE(A2;15;10);7;1)*9+EXTRAE(EXTRAE(A2;15;10);8;1)*7+EXTRAE(EXTRAE(A2;15;10);9;1)*3+EXTRAE(EXTRAE(A2;15;10);10;1)*6;11)));"Valido";"Erroneo")
¿Demasiado largo?
Bueno, para los que no apreciáis la belleza de la jungla, puedes usar esta otra:
=SI(EXTRAE(A2;13;2)=EXTRAE(12345678910;11-RESIDUO(SUMA(EXTRAE(A2;FILA(INDIRECTO("5:12"));1)*(EXTRAE(37498625;FILA(INDIRECTO("1:8"));1)+1));11);1)&EXTRAE(12345678910;11-RESIDUO(SUMA(EXTRAE(DERECHA(A2;10);FILA(INDIRECTO("1:10"));1)*(EXTRAE(0&137498625;FILA(INDIRECTO("1:10"));1)+1));11);1);"Valido";"No Valido")
Esta última depende de la versión de tu excel deberás usar Control+Mayusculas+Intro.
Saludos.

Por torquemada, · publicado el 29 de noviembre29 nov
FORMULA EXCEL PARA VALIDAR UN NÚMERO DE CUENTA BANCARIA

Hola, SUSANA GARCIA-ABAD FERNANDEZ.
En esta respuesta de Antoni
Puede que encuentres la solución.
Saludos.

Por torquemada, · publicado el 27 de noviembre27 nov

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Ejecutar macro si la celda de inicio de lamisma está vacía

Featured Replies

Archivado

Archivos

Nuevo mapa de municipios españoles

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Estadísticas de descargas

Mensajes

Crear un loop para emitir recibos

Crear un loop para emitir recibos

Crear un loop para emitir recibos

FORMULA EXCEL PARA VALIDAR UN NÚMERO DE CUENTA BANCARIA

FORMULA EXCEL PARA VALIDAR UN NÚMERO DE CUENTA BANCARIA

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)