Dante Amor

H o l a: Ya hice pruebas con esta macro y puedo seleccionas las celdas y ordenarlas y las imágenes se mueven con su respectivo nombre. Sub im4() 'Por.Dante Amor ruta = "C:\trabajo\varios\" For i = 2 To Range("B" & Rows.Count).End(xlUp).Row arch =...

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: Envíame tus archivos y ejemplos de lo que necesitas, explica los ejemplso con imágenes, colores o datos en las hojas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Darío Gudino Carvajal” y el título de...

H o l a: Te regreso la macro con el password "123" Private Sub Worksheet_Change(ByVal Target As Range) 'Proteger celdas 'Por. Dante Amor If Not Intersect(Target, Range("A1:V1000")) Is Nothing Then Application.ScreenUpdating = False Set Rango =...

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: Reemplaza el código del commmanbutton, por el siguiente: Private Sub CommandButton1_Click() 'Act.Por.Dante Amor una = True existe = False For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then existe = True h = ListBox1.List(i) If...

H o l a: Te anexo la macro: Sub im4() 'Por.Dante Amor ruta = "C:\trabajo\varios\" For i = 2 To Range("B" & Rows.Count).End(xlUp).Row arch = Cells(i, "B") & ".jpg" With Cells(i, "A") Arriba = .Top Izquierda = .Left Ancho = .Width Alto = .Height End...

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