Dante Amor

Pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range, p As Variant ' Set rng = Intersect(Target, Range("A5:E" & Rows.Count)) If Not rng Is Nothing Then For Each c In rng p...

Prueba la siguiente: Sub EliminarCelda() Dim i As Long Application.ScreenUpdating = False For i = Range("AZ" & Rows.Count).End(3).Row To 1 Step -1 If Len(Range("AZ" & i).Value) <= 5 Then Range("AZ" & i).Delete xlUp Next End Sub

Recomendación. Nombra tus textbox del 1 al 10 de la siguiente manera: TextTari_1 al TextTari_10 TextCant_1 al TextCant_10 TextRend_1 al TextRend_10 TextCost_1 al TextCost_10 TextPorc_1 al TextPorc_10 Pon el siguiente código en tu botón Calcular:...

buscarv(A2;tablabase;1;0) Tu primer fórmula tiene la columna 1, la columna 1 regresa el mismo valor que estás buscando, ¿realmente quieres eso? Puedes poner la siguiente fórmula en B2 y copiar hacia la derecha. En automático incrementa el número de...

Responde lo siguiente y en este orden: 1. ¿Qué vas a poner en el textbox? ¿Es texto o números? 2. En dónde va a buscar, ¿en cuál hoja y en cuál columna? 3. ¿En dónde va a pegar? ¿Siempre en la fila 4? ¿O después de la ultima fila con datos?

Prueba lo siguiente: Sub Macro1() Dim cod As Variant, f As Range cod = Application.InputBox("Entra el código") If cod = "" Or cod = False Then Exit Sub Set f = Sheets("Constantes").Range("A:A").Find(cod, , xlValues, xlWhole, , , False) If Not f Is...

Prueba la siguiente: Sub BorrarHojas() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If WorksheetFunction.CountA(sh.UsedRange) = 0 And _ WorksheetFunction.Count(sh.UsedRange) = 0 Then sh.Delete End If Next End Sub

Puedes explicarlo con ejemplos. Pon aquí imágenes con ejemplos, reemplaza tus datos confidenciales con datos genéricos. Lo que debe contener cada imagen:

Ho la y bienvenida a TodoExpertos! Puedes poner tu macro completa. Utiliza el icono para insertar código: Te aparece el error y presionas "Depurar", ¿cuál línea de la macro te aparece resaltada en amarillo? Puedes poner una imagen con una muestra de...

Prueba lo siguiente: Sub test_1() Dim i As Long For i = 6 To Range("E" & Rows.Count).End(3).Row If Range("F" & i) & Range("G" & i) & Range("H" & i) = "" Then Select Case Range("E" & i).Value Case 1: Range("F" & i).Resize(1, 3).Value = Array(3, 2, 1)...