Dante Amor

H o l a: Escribe el número de fila en la celda G22 Pon la siguiente macro en un módulo: Sub SeleccionarFila2() 'Por.Dante Amor f = Application.InputBox("Introduce el número de fila", "Ir a", Range("G22")) If f = False Or f = "" Then Exit Sub If Not...

H o l a: En este evento txtbuscacli_change Tienes que cambiar esto: m = instr(1, activecell.value, ucase(txtbuscacli.text)) Por esto: m = instr(1, ucase(activecell.value), ucase(txtbuscacli.text)) Es decir, tienes que comparar mayúsculas con...

H o l a: Cambia esta línea: Criteria1:="=*" & Range("c1") & "*", _ Por esta: Criteria1:="=" & Range("c1") & "*", _

H o l a: Envíame tus archivos y me explicas con ejemplos, con colores y con comentarios lo que tienes y lo que esperas que haga la macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Beatriz Ivette Samaniego...

H o l a: Te anexo la macro Sub CopiarMes() 'Por.Dante Amor dia = Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1) fecha = DateSerial(Year(Date), Month(Date), dia) Set b = Rows(1).Find(fecha, lookat:=xlWhole) If Not b Is Nothing Then Range(Cells(3,...

H o l a: Te anexo una macro Sub LeerDatosArchivoCerrado() 'Por.Dante Amor Dim cn As ADODB.Connection Dim rs As ADODB.Recordset ' Set cn = New ADODB.Connection Set rs = New ADODB.Recordset ' strArc = ThisWorkbook.Path & "\" & "datosx.xlsx" strSQL =...

H o l a: No me funciona esta conexión que estás poniendo: cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};" & "DriverIdy0;ReadOnly=True;DBQ=" & strArchivo & ";" La que me funciona es esta: strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &...

H o l a: Te anexo la macro actualizada, para seleccionar la carpeta y con el cambio de elseif por la estructura Case: Sub ExtraerFolioFiscal2() 'Act.Por.Dante Amor Dim cp, Archivos Dim y, Fila, FolioFiscal Application.ScreenUpdating = False...

H o l a: Te anexo un código que me está funcionando, como no pusiste la conexión, ni el método Open, tuve que agregarlos para probar y me funciona bien: Private Sub CommandButton1_Click() 'Act.Por.Dante Amor Dim var_fechaDesde, var_fechaHasta As Date...

H o l a: Sería así: Sub Mensaje() 'Por.Dante Amor If [A1] <> "" Then MsgBox [A1] End Sub sal u dos