Tor Cheer

Con este ejemplo puede pasar de registro en registro, espero le sirva, cualquier cosa comenta, saludos Private Sub cmdSiguiente_Click() uf = Sheets("Hoja13").Range("A" & Rows.Count).End(xlUp).Row Posicion = ActiveCell.Address uFila = uf If...

Con esta macro puede ir a la siguiente celda uf = Sheets("Hoja13").Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.Cells(uf + 1, 1). Activate Sustituye la Hoja13 por el nombre de la hoja de su archivo, al columna "A" por la columna de su archivo,...

¿Tendrá algún patrón de comportamiento? ¿En qué momento se hará el intercambio de datos?, una vez cambiado de ubicación los datos, ¿volverán a cambiar de ubicación? ¿Cuál es el objetivo del cambio de datos? No me queda muy claro lo que necesita, si...

Puede subir una imagen de sus datos y como quiere los resultados para intentar ayudarle, no me queda claro lo que necesita.

Al iniciar la macro agregue lo siguiente If Txtdato1.Text = "" or Txtdato2.Text = "" Then mensaje = MsgBox("Datos imcompletos", vbOKOnly) Exit Sub Else 'Aqui pone la macro End if

Con esta fórmula obtiene el resultado deseado, sustituye las comas(,) por punto y coma (;) para que no le de error. Le da formato de porcentaje a la columna % =B2/SUMAR.SI.CONJUNTO(B:B,A:A,A2)

No me queda muy claro, puede subir una imagen con sus datos y ampliar lo que necesita para poder ayudarle

Podría hacerlo con una fórmula, sustituye las comas(,) por punto y coma (;) en la fórmula para que no de error, cualquier cosa comenta =SI(B2="TOTEM","PEQUEÑA",SI(B2="VINILO 60 CM","PEQUEÑA",SI(B2="VINILO TEXTO","PEQUEÑA",SI(B2="VINILO 160...

Con su correo de gmail en onedrive puede subir el archivo y compartir el enlace

Si entendí bien con este código puede hacerlo Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("B3").Value = Worksheets("Documento 5").Range("A3").Value End Sub