☰

macro de vba: busque la primera columna en blanco del rango de filas específico

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba macros
macro de vba: busque la primera columna en blanco del rango de filas específico

La mayoría de las soluciones que busqué en Google consistían en encontrar la primera columna en blanco o la primera fila en blanco, pero específicamente necesito encontrar la primera columna en blanco en un rango de filas.

Lo que necesito es pegar algo de un libro a otro libro, pero primero necesito encontrar la primera columna en blanco en un rango de filas desde (100:114).

Podría publicar lo que tengo hasta ahora, pero está lejos de funcionar.

Respuesta1

Entonces mis habilidades con VBA están completamente oxidadas, pero si miras la contribución de Tom Urtis enCómo: seleccionar un rangoAl seleccionar un rango de datos de ubicación inicial desconocida en la red de desarrolladores de Microsoft, tiene los objetos y métodos necesarios que debería necesitar para encontrar una solución a lo que está buscando hacer. A continuación se muestra una reimpresión del código de ese enlace:

Sub UnknownRange()
If WorksheetFunction.CountA(Cells) = 0 Then
    MsgBox "There is no range to be selected.", , "No cells contain any values."
    Exit Sub
Else
    Dim FirstRow&, FirstCol&, LastRow&, LastCol&
    Dim myUsedRange As Range
    FirstRow = Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row

    On Error Resume Next
    FirstCol = Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column
    If Err.Number <> 0 Then
        Err.Clear
        MsgBox _
        "There are horizontally merged cells on the sheet" & vbCrLf & _
        "that should be removed in order to locate the range.", 64, "Please unmerge all cells."
        Exit Sub
    End If

    LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    LastCol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    Set myUsedRange = Range(Cells(FirstRow, FirstCol), Cells(LastRow, LastCol))
    myUsedRange.Select
    MsgBox "The data range on this worksheet is " & myUsedRange.Address(0, 0) & ".", 64, "Range address:"
End If
End Sub

información relacionada