Isaac Reyes

H0la Franco: Agrega este código en la sección de código del libro y tendría que funcionar para los datos en la columna B Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim hoja As Worksheet Dim fila As Long 'Validar que...

H0la aabucossi: No le veo problemas al código. A ver si puedes enviar una imagen de la tabla de origen y una imagen de la tabla dinámica. S@lu2

H0la Jorge: Por lo que entiendo, me imagino que quieres establecer el criterio de la columna A de h2 en la columna A de h1, B de h2 a B de h1 y lo mismo con el resto de las columnas. Si estoy entendiendo bien, lo que deberías hacer es, en la...

Intenta reemplazando esta línea If Target <> "" Then MsgBox "Celda llena": Exit Sub Por esta otra If Target <> "" Then Target.ClearContents: Exit Sub Y dime si es lo que buscabas. S@lu2

Si es así, te sugiero que dividas el problema y una vez que comiences a implementar la solución, vayas preguntando cada parte. Lo que veo es que el problema se puede dividir de la forma siguiente: Ingreso de nuevos equiposCrear una tabla con la...

Estimada Brenda: Revisa este enlace y me comentas si es lo que buscas. Sumatoria con macros automáticamente con userform desde excel S@lu2

Con este código debiera bastar Sub unir() 'por GP' Dim lngFila As Long 'fila de la primera celda vacía en columna B' lngFila = Sheets("Nombre_hoja").Range("B" & Sheets("Nombre_hoja").Rows.Count).End(xlUp).Row + 1 'Unir celdas'...

Algo así en el evento click de tu botón, tendría que funcionar bien (Suponiendo que tu cuadro de vendedor se llama txtVendedor y tu cuadro ventas se llama txtVentas) 'Por GP' Dim lngFila As Long lngFila = Range("A" &...

Comencemos por lo más obvio a ver si llegamos a una solución ¿Has intentado reemplazar la línea lpunto = InStr(1, TextBox2, ".") 'por' lpunto = InStr(1, TextBox2, ",") S@alu2

Hice varias modificaciones al código 'Por GP - Adaptación función colorear de DAM' Sub seleccionar() Dim strSelec As String For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") = 2 Then If strSelect <> "" Then strSelect = strSelect &...