Adriel Ortiz Mangia

h o l a ¿Puedes poner un ejemplo?

H o l a en evento exit del ultimo textbox pon esto Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) CommandButton1.SetFocus End Sub me comentas y valoras para finalizar

H o l a Te paso la macro, crea los controles combox1 y Listbox en tu formulario. Private Sub ComboBox1_Change() '//Por Aortiz If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then MsgBox "seleccione un diagnóstico", vbInformation Exit Sub End If ' Set...

H o l a te paso la macro Sub imprimir() Set h1 = Sheets("Hoja1") hoja = h1.Range("A2") If hoja = "" Then MsgBox "ingrese nombre de la hoja a imprimir", vbCritical For Each h In Sheets If UCase(h.Name) = UCase(hoja) Then imprime = True Exit For End If...

H o l a Te paso la macro actualizada Sub Guardar_como_Complemento() 'Guardar como Complemento 'Act. Aortiz Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook ruta = "D:\MODULOS\" arch = l1.Name ' fecha =...

H o la Envíame tu archivo [email protected]

H o l a ¿Indica cómo está organizado tu información? Cuales son los criterios para preparar la macro

H o la te paso la macro Sub compara_copia() '//Por Aortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set r = h2.Columns("A") Set b = r.Find(h1.Cells(i, "A"), lookat:=xlWhole) If Not b Is...

H o l a usa estó ComboBox1.Style = fmStyleDropDownList con excel vba sería así Private Sub UserForm_Activate() ComboBox.AddItem ("hola") ComboBox.AddItem ("como estas") ComboBox.AddItem ("me gustas") ' ComboBox1.Style = fmStyleDropDownList End Sub...

H o l a ¿Deseas ejecutar una macro cuando seleccionas una lista del combobox? Si es así usa esto Private Sub ComboBox1_Change() '//Aortiz Select Case ComboBox1.ListIndex Case 0 macro1 ' Case 1 macro2 ' Case 2 ' macro3 End Select End Sub