víctor ibarz

Puedes utilizar las fórmulas "contara" que cuenta las celdas ocupadas de un rango y la fórmula "contar.blanco", que cuenta las celdas en blanco de un rango..

Algo así serviría: vm = MsgBox("Atención!" & vbCrLf & vbCrLf & "¿Estás seguro de querer ejecutar la macro?", vbCritical + vbYesNo) If vm = vbNo Then MsgBox "Macro cancelada" Exit Sub End If

Para eliminar los duplicados la funcionalidad de excel "Quitar duplicados" del menú "Datos" te serviría. Posteriormente con un formato condicional para cada columna podrías resaltar los valores duplicados. Si te hace falta sí o sí una macro, también...

Alt+F11 para acceder a la ventana de VBA, doble clic en Hoja1 del explorador de la izquierda, pega este código: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim h1 As Worksheet Dim h2 As Worksheet Dim p As...

En este enlace puedes descargar de forma gratuita un complemento que hace exactamente lo que quieres, en el mismo enlace está bien explicado como utilizarlo.

Para ofrecerte alguna solución o idea de por dónde empezar haría falta entender mejor qué quieres decir con lo de "los productos no son exactamente iguales pero si parecidos".. ¿puedes poner algunos ejemplo o una imagen para tener una idea de cómo...

La manera más sencilla de hacerlo es mediante una macro, algo así:

Prueba así a ver si te sirve: Dim h As Worksheet Set h = Hoja1 a = Range("E" & Rows.Count).End(xlUp).Row If a < 3 Then Exit Sub For B = 3 To a If Cells(B, 6) = Cells(B + 1, 5) Then ElseIf Cells(B, 6) > Cells(B + 1, 5) Then 'superpuesto vi = Cells(B,...

Puedes hacerlo así: Dim h As Worksheet Set h = Hoja1 a = Range("E" & Rows.Count).End(xlUp).Row If a < 3 Then Exit Sub For B = 3 To a If Cells(B, 6) = Cells(B + 1, 5) Then Else h.Cells(B, 5).EntireRow.Insert B = B + 1 End If Next Cambia donde dice...

Probablemente la forma más sencilla de resolver el problema es con fórmulas, pero para poder ofrecer solución deberíamos conocer un poco cómo tienes organizados los datos con algún ejemplo.