Dante Amor

Te anexo las macros actualizadas Dim h1, h2 Private Sub cmbPrintingService_Change() 'Por.Dante Amor ComboBox1 = "" ComboBox1.Clear If cmbPrintingService.ListIndex = -1 Or cmbPrintingService = "" Then Exit Sub End If h2.Cells.Clear u = h1.Range("A" &...

H o l a : Te anexo las 2 macros. Pon la siguiente macro en el botón de buscar Sub BuscarCod() 'Por.Dante Amor Set cod = Range("B4") If cod.Value = "" Then MsgBox "Captura un código", vbExclamation, "BUSCAR" cod.Select Exit Sub End If ' u = Range("B"...

Te anexo la actualización Private Sub CommandButton2_Click() If ListBox1.ListIndex = -1 Then MsgBox "Selecciona un registro del listbox" Exit Sub End If For Each h In Sheets If h.Visible = -1 Then h.Range("G4").Value =...

Envíame tu archivo para revisarlo. Pon tu nombre de usuario en el asunto del correo.

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...

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...