cel overnemen

[patje8]

Ik wil graag een cel overnemen naar een ander bestand.
Dus als er tekst in cel A1 staat moet dit komen in cel A1 van het andere bestand.
A1 ==> A1
A5 ==> A2
A9 ==> A3

Alle lege cellen moet niet overgenomen worden.
Hoe doe ik dit?

 

[Niels28]

Sub overnemen()

With Workbooks.Open("c:\00000_helpmij\bestand1.xlsx")
    For Each cl In .Sheets(1).Range("A1:A500").SpecialCells(2)
        c01 = c01 & "|" & cl.Value
    Next
    .Close savechanges:=False
End With

ThisWorkbook.Sheets(1).Cells(1, 1).Resize(UBound(Split(c01, "|"))).Value = Application.Transpose(Split(Mid(c01, 2), "|"))

End Sub

Niels

 

[tkint]

Beste,
Open beide bestanden en typ bv. cel A1 van bestand2 een gelijk aan-teken in cel A1 en verwijs met de cursor naar cel A1 van bestand1. Er staat nu een formule in de formulebalk.

 

[patje8]

Niels28 ==> gaat dit ook zonder een macro

tkint ==> dit gaat niet want de lege cellen moeten niet mee overgenomen worden

 

[Niels28]

Cel A1 aanklikken
ctrl ingedrukt houden en de rest van de cellen aanklikken
ctrl-c
ander bestand selecteren
cel A1 aanklikken
ctrl-v

Niels