Jump to content

AlexanderS

Moderators
  • Posts

    1,395
  • Joined

  • Last visited

  • Days Won

    58

AlexanderS last won the day on April 28

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

8,895 profile views

AlexanderS's Achievements

  1. Lo mas recomendable ya que lleva un bucle es que lo ejecutes manualmente cuando realices algún cambio. Saludos.
  2. Hola @Galactico, algo asÍ?: Saludos. Muestra tamaño Letra.xlsm
  3. 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
  4. 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
  5. 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
  6. 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
  7. 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.
  8. 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.
  9. 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.
  10. Suponiendo que las 2 celdas son A1 y A2: HostFolder = Range("A1") & Range("A2") Saludos
  11. Hola, con formatos condicionales no seria mas fácil? Saludos Formato C.xlsx
  12. Tienes razón, no me di por hecho que los num de los recibos serian únicos. Adjunto el archivo con una modificación. Saludos EJEMPLO PARA INSERTAR COMENTARIOS.xlsm
  13. Prueba el adjunto, ten en cuenta que la macro esta echa con el formato de la tabla que adjuntaste es posible que debas realizar modificaciones a la macro para adaptarlo a otro libro. Saludos. EJEMPLO PARA INSERTAR COMENTARIOS.xlsm
×
×
  • Create New...

Important Information

Privacy Policy