Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Macro que reemplaze datos iguales.

publicado

Buen dia a todos! Quisiera saber si me pudiera apoyar con esta macro ya que no logro adaptarla a lo que deceo y hacerla funcional. Tengo un libro en el cual tengo dos hojas en ambas tengo el mismo numero de columnas con el mismo tipo de informacion, yo lo que quiero lograr es que de la hoja2 compare la columna A hasta encontrar celda vacia contra la hoja1 columna A hasta encontrar celda vacia, si encuentra el dato entonces reemplazar toda esa fila de la hoja2 en la hoja1 en la posicion donde encontro el dato que coincide.

HAsta ahora solo tengo esta parte.

Sub repetidos()

sheets("Hoja1").Select

Range("a1").Select

posicion = 1

While ActiveCell.Value <> ""

valorcomparacion = ActiveCell.Value

sheets("Hoja2").Select

Range("a2").Select

While ActiveCell.Value <> ""

If ActiveCell.Value = valorcomparacion Then

Selection.Delete Shift:=xlUp

Else

ActiveCell.Offset(1, 0).Select

End If

Wend

posicion = posicion + 1

sheets("Hoja1").Select

Range("a2").Select

ActiveCell.Offset(posicion - 1, 0).Select

Wend

End Sub

Saludos.

GErardo

DATOS.xls

Featured Replies

No hay posts para mostrar

Archivado

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

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.