waarden in twee cellen kopieren naar een cel

[ewh]

we hebben een sheet met in kolom J en K
gegevens ( als J is gevuld dan ook altijd K gevuld )

we willen deze twee cellen samenvoegen en kopieren naar een ander blad met VBA
de onderstaande kode heb ik gevonden op deze site maar weet niet hoe ik de twee bron cellen moet samen voegen ( met een spatie _ spatie tussen de twee waarden in)

natuurlijk akn het ook met een cel verwijzing bv ( J3&" - "&K3) maar dit heeft als nadeel dat als J en K niet gevuld zijn je altijd een - krijgt te zien

Dim location As Range
For Each cell In Range("E1:e10")
If cell.Value <> "" Then
Set location = Range("A65000").End(xlUp).Offset(1, 0)
location.Value = cell.Value
location.Offset(0, 1).Value = cell.Offset(0, 1).Value
End If
Next cell

 

[Patrickk80]

Je kan het samenvoegen van cellen ook in vba code gebuiken:

if cell.value <> "" then
...
location.value = Range(...).value & "-" & range(...).value
...
end if

 

[HSV]

Maak gebruik van....

Set location = cells(rows.count, 1).End(xlUp).Offset(1)

....voor nieuwere versies dan 2003.


Voor het samenvoegen, al strookt kolom J en K niet met E en F in je vraag.

location.Value = cell.Value &"_" & cell.fffset(,1).value

 

[VenA]

Om de cellen J en K samen te voegen op een ander blad kan je dit proberen.

Sub VenA()
For Each cl In Sheets("Blad1").Range("E1:E10")
    If cl <> "" Then Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1) = cl.Offset(, 5) & "-" & cl.Offset(, 6)
Next cl
End Sub

Of als de cellen in kolom E handmatig ingevoerd worden

Sub VenA()
For Each cl In Sheets("Blad1").Range("E1:E10").SpecialCells(2)
    Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1) = cl.Offset(, 5) & "-" & cl.Offset(, 6)
Next cl
End Sub

 

[ewh]

Je kan het samenvoegen van cellen ook in vba code gebuiken:

if cell.value <> "" then
...
location.value = Range(...).value & "-" & range(...).value
...
end if

dit werkt prima voor een cel, maar we hebben 200 regels onder elkaar staan
heb je daar ook een tip voor?

 

[VenA]

Volgens mij staan er nog een aantal reacties.

 

[ewh]

Volgens mij staan er nog een aantal reacties.

VenA, daar heb je gelijk in, maar de overige reaktie ( zo op het eerste gezicht ) is geen oplossing voor me althans ik krijg niet het gewenste resultaat.

en ben nog steedas druk bezig om het voor elkaar te krijgen.

 

[VenA]

Dan denk ik dat je de vraag niet goed gesteld hebt en dus beter even een voorbeeldbestand kan plaatsen.