Dante Amor

Esto será parte de mi código de captura Antes de iniciar con algún código, puedes poner aquí tu código y cómo quieres el funcionamiento para borrar filas.

Prueba lo siguiente: Sub celda() MsgBox "Fila= " & Selection.TopLeftCell.Row & " Columna= " & Selection.TopLeftCell.Column End Sub

Hay que verificar sin los valores son números, prueba lo siguiente: If TxtCal3.Value <> "" And IsNumeric(TxtCal3.Value) And _ txtResultado.Value <> "" And IsNumeric(txtResultado.Value) And txtResultado <> 0 Then TextBox1.Value = CDbl(TxtCal3.Value) /...

Sub BorrarImg() Dim img As Shape For Each img In ActiveSheet.Shapes If Not Intersect(img.TopLeftCell, img.BottomRightCell, ActiveCell) Is Nothing Then img.Delete End If Next End Sub

Utiliza la siguiente: =SI(Y(A4<1400;B4<C4);50;B4*30)

Prueba lo siguiente Pon el código en los eventos de la hoja donde quieres que suceda. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim m As Boolean If Target.Locked Then m = False Else m = True...

Revisa si lo siguiente para ver si te ayuda un poco. Para calcular el número de piezas. - Calcular el número de piezas que caben a lo ancho (x) - Calcular el número de piezas que caben a lo largo (y) - Multiplicas x por y y obtienes el número de...

Asumiendo tus datos en las columnas A, B y C. Los resultados en las columnas E, F y G: Sub duplicar_registros() Dim c As Range, v As Variant Application.ScreenUpdating = False For Each c In Range("A2", Range("A" & Rows.Count).End(3)) For Each v In...

Que obviamente se van almacenando en la hoja nombrada "REGISTROS" Tienes un botón para pasar los datos a la hoja "REGISTROS", puedes poner aquí ese código. Tienes un evento Activate o Initialize, puedes poner aquí ese código.

Puedes poner aquí tu código. No está el enlace a tu archivo.