Diego Pazmiño

paramisolo respondió: Vamos a ver selecciona todas tus celdas de la Hoja1 del Libro1 cópialas, situate en tu Hoja1 del Libro2 y las pegas, efectivamente excel crea automáticamente las referencias externas (como debe hacer) ahora pulsas en Edición-Vínculos En la ventana...

Isaac Reyes respondió: Tuve que reestructurar tu código. Espero te sirva Dim dblFil As Double Sheets("BOM").Select valor = Range("A1").Value 'ComboBox1.Text Set busca = Sheets("BOM").Range("A2:A" & Sheets("BOM").Rows.Count).Find(valor, LookIn:=xlValues, LookAt:=xlWhole) If...

Luis Mondelo respondió: Te mando la solución y sigue mis pasos: Tenemos los datos como indicas: En la hoja1 en el rango A1:A3 las letras A, B Y C En la hoja2 en el rango A1:B3 los datos como los muestras. En la hoja3 no hay nada. Ejecuta esta macro y todo listo: Sub...

Abraham Valencia respondió: Pues, una forma, en el código del userform: Private Sub UserForm_Activate() Label1 = Time Reloj End Sub En un modulo "normal": Sub reloj() UserForm1.Label1.Caption = Time Tiempo End Sub Sub Tiempo() Application.OnTime Now + TimeValue("00:00:01"),...

Dante Amor respondió: Te anexo la macro. Cambia en la macro lo siguiente: - "Hoja1" por el nombre de tu hoja con la base de datos. - "Hoja2" por el nombre de la hoja con la orden de pedido - J = 2, cambia 2 por el número de fila en la cual quieres que empiecen los vales -...

jerryeagle respondió: Private Sub TextBox7_Change() TextBox7.Value = FormatNumber(TextBox7.Value, 2) '2 es el Numero de Decimales End Sub Al usar este formato, la macro utilizara el símbolo que tengas por defecto para separador de miles y de decimales Aunque yo validaría...

Roberto Alvarado respondió: En el evento lostfocus del control textbox validas que el valor este entre el rango que necesitas.

Luis Mondelo respondió: Te mando mi solución con este ejemplo: -Tenemos un formulario con varios textbox. -En el textbox1 exigimos que el importe tenga un punto en lugar de una coma -Usa el siguiente evento para corregir el textbox1 en el momento de salir de él. (Para...

Luis Mondelo respondió: Con esta sentencia adjudicamos a la variable ultima el número de la última columna con datos para que puedas usarla con sentencias tipo Cell. En este ejemplo he utilizado la fila 1 para conseguirlo. ultima = range("iv1").end(xltoleft).column Recuerda...

Dante Amor respondió: Utiliza la siguiente macro: Sub eliminar() 'Por.DAM Dim f As New Collection Sheets("Hoja1").Select For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If UCase(Cells(i, "M")) = "BAJA" Then f.Add i End If Next For i = f.Count To 1 Step -1...

Luis Mondelo respondió: Mándame el excel que quieres convertir a pdf y enviar por mail para construirlo desde el principio. Si hay varias pestañas tienes que especificarme cual de ellas hay que convertir a pdf [email protected]

jerryeagle respondió: Al principio de tu macro pon esta linea: Application.ScreenUpdating = False Es para que todo lo que hagas, no se vea, ahora, para poder seleccionar una hoja oculta, primero tienes que hacerla visible Sheets("hoja"). Visible = True, continuas la...

Elsa Matilde respondió: Usá estas instrucciones de ejemplo, están explicadas por lo que solo tenés que armarla según tus controles. 'el dato debe estar como en la celda, si es texto así sino pasarlo a nro con Val(Textbox1) dato = TextBox1 Set busco =...