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

Hace 20 horas, Carlos Grados Ames dijo:

Falla cuando quiero asignar un rango a una variable (Rango) , rango que también se arma con una variable (FilaCeldaActual)

Te falta el "Address"
 

Sub prueba()

      Dim FilaCeldaActual As Long
      Dim Rango As String
      FilaCeldaActual = ActiveCell.Row
      Rango = Range("A1:X" & FilaCeldaActual).Address
      MsgBox Rango

End Sub

 

En ningún sitio comentas que se supone que ha de contener la variable Rango.

El valor, la dirección, el objeto,......❓❓❓

 

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

Hace 5 horas, Antoni dijo:

En ningún sitio comentas que se supone que ha de contener la variable Rango.

El valor, la dirección, el objeto,......❓❓❓

 

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

Hace 5 horas, Haplox dijo:

Te falta el "Address"
 

Sub prueba()

      Dim FilaCeldaActual As Long
      Dim Rango As String
      FilaCeldaActual = ActiveCell.Row
      Rango = Range("A1:X" & FilaCeldaActual).Address
      MsgBox Rango

End Sub

 

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.

apunte: en celdas ocultas arriba existe esa palabra  "Cuadre DatosGen Pcom" 2 veces, por eso la macro busca la 3ra coincidencia

Monografia ContaBas 11Ene21 - al1 08.xlsm

Hace 6 minutos , Carlos Grados Ames dijo:

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.

apunte: en celdas ocultas arriba existe esa palabra  "Cuadre DatosGen Pcom" 2 veces, por eso la macro busca la 3ra coincidencia

Monografia ContaBas 11Ene21 - al1 08.xlsm 96.36 kB · 0 descargas

 

Hace 4 horas, Carlos Grados Ames dijo:

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.

apunte: en celdas ocultas arriba existe esa palabra  "Cuadre DatosGen Pcom" 2 veces, por eso la macro busca la 3ra coincidencia

Monografia ContaBas 11Ene21 - al1 08.xlsm 96.36 kB · 0 descargas

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.VisibleRange.Rows.Count
    PriFilaVisible = ActiveWindow.VisibleRange.Row
    FilasAMover = FilaCeldaActual - Round((PriFilaVisible + (NumFilVisiblesEnRango / 3)), 0)
    
    ValorBuscado = ActiveCell.Value
        
      For Each celda In Range("A1:X" & FilaCeldaActual)
        
        If celda.Value2 = ValorBuscado Then
            ConteoValorEncontrado = ConteoValorEncontrado + 1
        End If
        
        If ConteoValorEncontrado = 3 Then
            FilaEncontrada = celda.Row
            Exit For
        End If
        
    Next celda
    
    Range("A" & PriFilaVisible).Select
    
    With ActiveWindow
        .SplitColumn = 0
        .SplitRow = NumFilVisiblesEnRango / 3
    End With
    
    ActiveWindow.Panes(2).Activate
    ActiveWindow.SmallScroll Down:=FilasAMover
    Range("A" & FilaCeldaActual).Select
    
    ActiveWindow.Panes(1).Activate
    Range("A" & FilaEncontrada).Select
    ActiveWindow.SmallScroll Down:=ActiveCell.Row - ActiveWindow.VisibleRange.Row
    
    ActiveWindow.Panes(2).Activate
    

End Sub

Hace 13 horas, Carlos Grados Ames dijo:

Este es el codigo

Cambia esta línea y pon:

For Each celda In ActiveSheet.Range("A1:X" & FilaCeldaActual)

 

Hace 2 horas, Haplox dijo:

Cambia esta línea y pon:

For Each celda In ActiveSheet.Range("A1:X" & FilaCeldaActual)

 

No, lamentablemente con este cambio sigue saliendo el mismo error ☹️

Ninguna novedad? ojala puedan ayudarme amigos.