Jump to content

AlexanderS

Moderators
  • Posts

    1,397
  • Joined

  • Last visited

  • Days Won

    58

AlexanderS last won the day on April 28 2021

AlexanderS had the most liked content!

About AlexanderS

  • Birthday 08/22/1990

Profile information

  • Gender
    Hombre
  • Localización:
    Costa Rica

Converted

  • Campos
    ,
  • Mi versión de Excel:
    0

Recent Profile Visitors

9,776 profile views

AlexanderS's Achievements

  1. Hola @patriciomates y demás compañeros! Prueba sustituir esta parte del código: cn.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};" & _ "DBQ=" & ThisWorkbook.Path & "\" & "ConsultaSQL.xlsm" cn.Open Por esta: cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & "ConsultaSQL.xlsm" _ & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" Adjunto por si acaso. Saludos a todos!! ConsultaSQL.xlsm
  2. Hola @pinoji, no hace nada porque colocaste la instrucción en el evento Change del mismo label,o sea no hace nada porque el evento nunca llega a activarse. Coloca la instrucción el evento CHANGE() de los 2 textbox TxtCantidad y TxtPrecio. Saludos.
  3. Lo mas recomendable ya que lleva un bucle es que lo ejecutes manualmente cuando realices algún cambio. Saludos.
  4. Hola @Galactico, algo asÍ?: Saludos. Muestra tamaño Letra.xlsm
  5. Hola @paikerr, prueba así: Private Sub Worksheet_Activate() Const HOJA As String = "CALENDARIO" Const TABLA As String = "CALENDARIO" Dim tbl As Object On Error Resume Next Set tbla = ActiveSheet.ListObjects(TABLA) If tbla Is Nothing Then ActiveSheet.ListObjects.Add(xlSrcRange, Sheets(HOJA).Cells(1, 1).CurrentRegion, , xlYes).Name = TABLA MsgBox "La tabla se ha creado con éxito dentro de la " & HOJA & "." Else MsgBox "La tabla ya existe dentro de la " & HOJA & "." End If End Sub Saludos
  6. Correcto, pero entonces lo mejor en tu caso borrar toda la lista de archivos de la columna y volver a escribirla seria lo mejor. Sub DoFolder(Folder) Range([B2], [A2].End(xlDown)).Clear .... Saludos
  7. Debemos tener alguna condición para diferenciar que es una categoría y que no, en tu caso veo que las categorías no tienen un código numérico al inicio y los datos si, con esa condición se puede generar el cambio automático. Saludos mrzo-bdd.xlsm
  8. Prueba así: Sub DoFolder(Folder) Dim SubFolder For Each SubFolder In Folder.SubFolders DoFolder SubFolder Next i = Cells(Rows.Count, 1).End(xlUp).Row + 1 Dim file For Each file In Folder.Files If Range("A:A").Find(file, , , xlWhole) Is Nothing Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _ file.Path, TextToDisplay:=file.Path Cells(i, 2).Value = file.DateCreated i = i + 1 End If Next End Sub
  9. Debes utilizar el evento Workbook_Open(), puedes leer un poco mas acerca de este aquí: https://www.exceleinfo.com/ejecutar-macros-al-abrir-un-archivo-en-excel-con-el-evento-workbook_open/ Saludos.
  10. En un formulario coloca un control "Image" y pega este código completo: Option Explicit Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As Long Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" _ (ByVal lpszUrlName As String) As Long Private Const BINDF_GETNEWESTVERSION As Long = &H10 Private Sub CommandButton1_Click() End Sub Private Sub UserForm_Initialize() Dim imageURL As String Dim fileName As String imageURL = "https://petsbioforestal.es/wp-content/uploads/2020/05/porque-mi-conejo-estornuda.jpg" fileName = Environ("temp") & "" & Mid(imageURL, InStrRev(imageURL, "/") + 1) If DownloadFile(imageURL, fileName) Then Image1.Picture = LoadPicture(fileName) Else MsgBox "Error downloading " & imageURL End If End Sub Private Function DownloadFile(URL As String, LocalFileName As String) As Boolean Dim RetVal As Long DeleteUrlCacheEntry URL RetVal = URLDownloadToFile(0, URL, LocalFileName, BINDF_GETNEWESTVERSION, 0) DownloadFile = (RetVal = 0) End Function PD: Este código no es mío lo tome de aqui https://www.mrexcel.com/board/threads/load-url-image-into-userform.1060189/ Saludos.
  11. Hola @Villable la forma correcta en la primera Public Const n As Integer = 12 Este debe ser escrito en un modulo, no en un modulo de objeto (ThisWorkbook o Hoja1 por ejemplo). La forma de llamar la variable seria simplemente: Msgbox n O tambien Msgbox Modulo1.n Saludos.
  12. Suponiendo que las 2 celdas son A1 y A2: HostFolder = Range("A1") & Range("A2") Saludos
  13. Hola, con formatos condicionales no seria mas fácil? Saludos Formato C.xlsx
×
×
  • Create New...

Important Information

Privacy Policy