Dante Amor

Pon lo siguiente en un botón: Private Sub CommandButton1_Click() TextBox1 = WorksheetFunction.Trim(TextBox1) End Sub Después de presionar el botón los espacios serán eliminados. 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Si quieres buscar en la columna B, entonces utiliza lo siguiente: Range("B1").select var2 = TextBox3 Columns("B").Find(What:=TextBox3.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,...

H o l a : Envíame tu archivo y me explicas con ejemplos, imágenes y comentarios, cómo tienes la información y cómo quieres el resultado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Dalia Carranza” y el título de...

H o l a : Te anexo la macro Sub Pedidos() 'Por.Dante Amor Set h1 = Sheets("inventario") Set h2 = Sheets("pedido") ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row Set b = h1.Columns("A").Find(h2.Cells(i, "A"), lookat:=xlWhole) If Not b Is...

Puedes poner la macro completa y una imagen de la hoja para ver cómo tienes los datos y en dónde se localiza el problema. O bien, envíame tu archivo y dime en qué módulo está la macro y cómo se llama la macro. Mi correo [email protected] En el asunto...

Te anexo la macro actualizada Sub Proteger() Dim Psw As String Do While Psw = "" Psw = Trim(InputBox("prueba")) Loop ' 'desbloquear celda B3 de la primera hoja Sheets(1).Range("B3").Locked = False ' For Each ws In Worksheets ws.Protect Psw Next End...

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) For fila = 5 To 15 If Cells(fila, 3) <> "" Then E1 = Cells(fila, 3) + Cells(fila, 4) S1 = E1 - Cells(fila, 5) E2 = S1 + Cells(fila, 6) S2 = E2 - Cells(fila, 7) E3 = S2...

H o l a : Prueba con lo siguiente: sht.Range(arrColumns(col) & LastRow + 1).Formula = "=IFERROR((" & arrColumns(col) & fila_arrojar_informacion + 2 & " - " & arrColumns(col) & fila_arrojar_informacion + 1 & ")/" & arrColumns(col) &...

H o l a : Como son varias condiciones, te sugiero que utilices un formulario. Crea un formulario con lo siguiente: Pon el siguiente código en el formulario: Private Sub CommandButton1_Click() 'Por.Dante Amor 'validaciones If TextBox3 = "" Or Not...

Te anexo un ejemplo Sub macro() ' ' 'en esta parte va tu macro ' 'suponiendo que en la variable suma tienes el resultado ' libro = "varios 28oct2016.xlsm" hoja = "Datos" celda = "A5" Workbooks(libro).Sheets(hoja).Range(celda) = suma ' End Sub El...