Jump to content

Antoni

Members
 View Profile  See their activity

  • Posts

    11,092

  • Joined

  • Last visited

  • Days Won

    747

Antoni last won the day on September 17

Antoni had the most liked content!

120 Followers

See all followers

About Antoni

  • Birthday 04/16/1951

Profile information

  • Gender
    Hombre
  • Localización:
    Galicia (UTC+1)

Converted

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

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Antoni's Achievements

Experienced

Experienced (11/14)

  • Reacting Well
  • Week One Done
  • Dedicated
  • One Year In
  • One Month Later

Recent Badges

5.5k

Reputation

65

Community Answers

  1.    YianTheJOP reacted to a post in a topic: Macro para completar columna hasta el final de registros
  2. Lehoi started following Antoni
  3. Antoni
    Sube tu archivo y pon un ejemplo de lo que quieres.
  4.    kai7as reacted to a post in a topic: Cambiar de foco al navegador al hacer un cambio en un combobox
  5. Antoni
    Private Sub ComboBox1_Change() AppActivate "Google Chrome" End Sub Revisa este link: Activar aplicaciones desde VBA Te aconsejo buscar en Google antes de solicitar ayuda en el foro, ganarás tiempo.
  6. Antoni
    Call UserfomName.HO_Issuance
  7.    eugeniocol reacted to a post in a topic: Copiar rango cada x Filas ???
  8. Antoni
    Sub CopiarMúltiple() Application.ScreenUpdating = False Range("C3:I7").Copy For x = 12 To 4998 Step 9 Range("C" & x).PasteSpecial xlPasteAll Next Application.CutCopyMode = False End Sub
  9.    jeaa reacted to a post in a topic: Macro para completar columna hasta el final de registros
  10. Antoni
    Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"
  11.    muyayito reacted to a post in a topic: Error fechas tras ejecutar Macro
  12.    Benito Bartolomé reacted to a post in a topic: Depurar macro vba para insertar notas
  13. Antoni
    Yo no me preocuparía demasiado, es que además, para media docena de notas.....
  14.    YianTheJOP reacted to a post in a topic: Comparar dos hojas
  15.    YianTheJOP reacted to a post in a topic: Comparar dos hojas
  16. Antoni
    No se entiende que es lo que pretendes hacer¿?
  17.    Antoni reacted to a post in a topic: De ComboBox para diferentes hojas.
  18. SUROPTICA started following Antoni
  19. xinortiz started following Antoni
  20.    lphant reacted to a post in a topic: Extraer caracteres en una consulta SQL de excel
  21. Antoni
    En Access: Left(Numero,6)
  22.    xinortiz reacted to a post in a topic: ELIMINAR COLUMNAS CON CRITERIO
  23. Antoni
    Sub EliminarColumnasNoChiclayo() Application.ScreenUpdating = False For y = Cells(2, Columns.Count).End(xlToLeft).Column To 3 Step -1 If Not Cells(2, y) Like "*Chiclayo*" Then Columns(y).Delete Next End Sub
  24.    Antoni reacted to a post in a topic: Macro para cambiar secuencia de datos en un rango de celdas
  25. Antoni
    Sub FormatoNúmeros() Dim R As Range, Texto As String Application.ScreenUpdating = False ActiveSheet.Copy After:=ActiveSheet For x = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row For y = 7 To Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column Texto = Trim(Hoja1.Cells(x, y)) Set R = Sheets("Cuestionario Horizontal").Columns(y - 6).Find(Texto, , , xlWhole) If Not R Is Nothing Then If Not R = "" Then Cells(x, y) = R.Row - 1 Next Next End Sub
  26. Antoni
    Sub crearHoja() Dim Hoja As String Hoja = "Benito" '<---------- Tu hoja nueva If ExisteHoja(Hoja) Then MsgBox "Ya existe la hoja " & Hoja, vbCritical Else Sheets.Add(After:=Sheets(Sheets.Count)).Name = Hoja MsgBox "Se ha creado la hoja " & Hoja, vbInformation End If End Sub Function ExisteHoja(Hoja As String) As Boolean For h = 1 To Sheets.Count If Sheets(h).Name = Hoja Then ExisteHoja = True Exit Function End If Next h End Function
  27.    Antoni reacted to a post in a topic: ORDENAR SOLO DATOS VISIBLES DE UN FILTRO
  28. Antoni
    Abre el adjunto y pulsa la flecha azul. Esta es la macro. Sub OrdenarFiltro() Application.CopyObjectsWithCells = False '<-- Para no copiar las autoformas Application.ScreenUpdating = False With Hoja2 .UsedRange.Clear Hoja1.UsedRange.SpecialCells(xlCellTypeVisible).Copy .Cells .UsedRange.Sort Key1:=.Columns("C"), Key2:=.Columns("B"), Header:=xlYes .Select End With Application.CopyObjectsWithCells = True End Sub
  29. Antoni
    ¿En el mismo rango? ¿En otro rango en la misma hoja? ¿En otra hoja? Lo más sencillo es la opción 3.
  30. Antoni
    Replace(Cells(x, y).Text, ",", ".")
  31. Antoni
    Utiliza Cells(x,).Text en lugar de Cells(x,y).Value
×
×
  • Create New...

Important Information

Privacy Policy

  I accept