El relleno

[ColdGeorge]

Hola amigos

En una columna tengo una lista de nombres, en otra hoja en una misma columna hay varias celdas con la palabra conductor, deseo colocar en la siguiente celda a la derecha el primer nombre de la lista, hasta completar las celdas, ¿Cuál es la mejor forma de realizar esta tarea? gracias de antemano por su ayuda.

ColdGeorge

 

[ColdGeorge]

Hola amigos

Mi búsqueda continúa y esto es lo que he logrado, aún así, no funciona como deseo, ¿alguna sugerencia?

Dim c As Range
Dim cell As Range
 
For Each c In Worksheets("Sheet1").Range("A1:A12").Cells
If c.Value <> "" Then
c.Copy
                              Sheets("Sheet2").Select
 
For Each cell In Worksheets("Sheet2").Range("A1").End(xlDown).Cells
                              If cell.Value = "CONDUCTOR" Then
                                            lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
                                            Range("A" & lMaxRows + 1).Offset(0, 1).Select
                                            Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                                            Application.CutCopyMode = False                           
                              End If
Next
End If
Next

ColdGeorge

 

[ColdGeorge]

Hola amigos

Aún no tengo éxito completo, pero he avanzado, eso creo, este es el código hasta ahora,

Dim c As Range
Dim d As Range

For Each c In Sheets("Hoja1").Range("A2:A6")
    If c.Value <> "" Then
        c.Copy
        Sheets("Hoja2").Select
    End If
Next        
For Each d In Sheets("Hoja2").Range("A5:A13")
        If d.Value = "CONDUCTOR" Then
            d.Offset(0, 1).PasteSpecial xlPasteValues
        End If
Next    
Application.CutCopyMode = False

Por alguna razón que no puedo resolver, hasta ahora, únicamente copia -o se muestra- el último nombre de la lista, cuando debería copiar el primero, luego el segundo, etc, gracias por su ayuda, ColdGeorge

 

[Greg Truby]

Bueno,

El siguiente le brindará los resultados que usted proveyó aquí.

Sub foo()

    Dim rngData As Excel.Range, _
        i&
    
    With Worksheets(1)
        Set rngData = .Range("A" & .Rows.Count).End(xlUp)
        Set rngData = .Range("A1").Resize(rngData.Row)
    End With
        
    rngData.Copy Worksheets(2).Range("A1")
    
    Set rngData = Worksheets(2).Range("A1").CurrentRegion
    With rngData
        Set rngData = .Offset(1).Resize(.Rows.Count - 1)
    End With
    With rngData
        .Cells(.Rows.Count, 1).Cut Worksheets(2).Range("B1")
        .Resize(.Rows.Count - 1).Cut Worksheets(2).Range("B2")
    End With
    Set rngData = Worksheets(2).Range("A1").CurrentRegion.Resize(, 1)
    With rngData
        .Formula = .Cells(1, 1).Formula
    End With
    
    For i = rngData.Rows.Count To 2 Step -1
        Worksheets(2).Rows(i).EntireRow.Insert
    Next i


End Sub

 

[ColdGeorge]

Estimado Greg

Aprecio tu ayuda, voy a realizar varios ejercicios con este código y lo mantendré al tanto de los resultados, saludos y gracias.

ColdGeorge

 

[ColdGeorge]

Hola Greg

Estoy complacido con los resultados de tu código, gracias.

ColdGeorge

 

[Greg Truby]

Con mucho gusto. Gracias por habernos dicho que salió bien.