Jump to content

Antoni

Members
  • Posts

    11,092
  • Joined

  • Last visited

  • Days Won

    747

Antoni last won the day on September 17

Antoni had the most liked content!

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

  1. 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.
  2. 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
  3. Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"
  4. Yo no me preocuparía demasiado, es que además, para media docena de notas.....
  5. 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
  6. 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
  7. 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
  8. 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
  9. ¿En el mismo rango? ¿En otro rango en la misma hoja? ¿En otra hoja? Lo más sencillo es la opción 3.
  10. Utiliza Cells(x,).Text en lugar de Cells(x,y).Value
×
×
  • Create New...

Important Information

Privacy Policy