Jump to content

Carlos Grados Ames

Members
  • Content Count

    29
  • Joined

  • Last visited

About Carlos Grados Ames

  • Rank
    Member
  • Birthday 05/21/1976

Recent Profile Visitors

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

  1. No, lamentablemente con este cambio sigue saliendo el mismo error ☹️
  2. Este es el codigo Sub DividirYCuadrar() Dim NumFilVisiblesEnRango As Long Dim PriFilaVisible As Long Dim FilaCeldaActual As Long Dim FilasAMover As Long Dim ValorBuscado As String Dim ConteoValorEncontrado As Integer Dim FilaEncontrada As Long Dim celda As Range If Left(ActiveCell.Value, 6) <> "Cuadre" Then Exit Sub With ActiveWindow .SplitColumn = 0 .SplitRow = 0 End With FilaCeldaActual = ActiveCell.Row NumFilVisiblesEnRango = ActiveWindow.VisibleRan
  3. Muchas gracias, ya no muestra el error, pero este código cuando lo integro con otro código mas grande si muestra error, lo muestro en las imágenes, archivo y lo explico: Como tengo casos prácticos largos, de bastantes filas, al seleccionar una celda que inicia con la palabra cuadre y algo más escrito como "Cuadre DatosGen Pcom" y teclar F10 se divide la hoja y en el panel de arriba me muestra la celda que también tiene la misma palabra "Cuadre DatosGen Pcom" con el objetivo que el usuario vea abajo la parte que tiene que llenar y arriba los datos con los que se calcúla abajo la solución.
  4. No se que debería contener la variable rango, supongo que para mostrarse en un msgbox seria dirección, al final corregido el código (con la ayuda de Haplox) el msgbox mostró $A$1:$X$15
  5. No se que debería contener la variable rango, supongo que para mostrarse en un msgbox seria dirección, al final corregido el código (con la ayuda de Haplox) el msgbox mostró $A$1:$X$15
  6. Buen día amigos, este código no me fallaba antes y ahora dice ERROR 13 "no coinciden los tipos", adjunto el código Falla cuando quiero asignar un rango a una variable (Rango) , rango que también se arma con una variable (FilaCeldaActual) Les agradezco la ayuda de antemano. Sub prueba() Dim FilaCeldaActual As Long Dim Rango As String ' el tipo de variable la cambio por range long string y siempre falla FilaCeldaActual = ActiveCell.Row Rango = Range("A1:X" & FilaCeldaActual) MsgBox Rango End Sub macro prueba.xlsm
×
×
  • Create New...

Important Information

Privacy Policy