Aneudys Martinez

En el evento Initialize del userform agrega estas línea aquí están los dos Private Sub UserForm_Initialize() With ComboBox1 .AddItem "pendiente" .AddItem "completo" End With End Sub en el evento change del combobox Private Sub ComboBox1_Change()...

Yo lo tengo de la siguiente manera Mi macro seleccionas las columna que que le indico y me la pega en una hoja nueva con el nombre que le doy cuando me lo pide y me pega desde la columna "A" hasta pegar todas la que elegí C:C Asi selecionas la...

sub copiar_ult_datos ( ) Range("a65536").End(xlUp).Copy Destination:=Range("a65536").End(xlUp).Offset(1, 0) end sub

La sintaxis para copier los datos en la hoja seleciondad ActiveSheet.Cells(Final, 1) = Me.Label13.Caption en ves de Hoja2.Cells(Final, 1) = Me.Label13.Caption

Efectivamente como dice miguel usa "if" If TextBox1 = "" Then MsgBox "Nombre inválido", vbInformation + vbOKOnly TextBox1.SetFocus Exit Sub End If En este ejemplo lo que hace es revisar mi textbox si esta vacío me muestra este mensaje Le doy aceptar...

Cargar imagen a un userform En el botón agregar imagen Este código On Error Resume Next ArchivoIMG = Application.GetOpenFilename("Imágenes jpg,*.jpg,Imágenes bmp,*.bmp", 0, "Seleccionar Imágen para Reegistro de Clientes") fotografia.Picture =...

Yo lo tengo de la siguiente manera

Si es posible solo ante de limpiar el userform crea una macro de copiar lo mismo en otra hoja

Mándame la macro que tiene para hacer el informe sino la tiene mándame el archivo para crearle una o si quiere especifica como estas estroturada la hoja y que información vas a solicitar en el informe

Buenos jorge con un userfom yo tengo la siente macro lo que hace es buscar lo que solicito En un combobox y me lo pasa a un libro nuevo con los valores solicitado Es decir tengo una tabla con varias columna en la que busco en la columna "E" y los...