Markro

Prøv at send det til sjap@privat.dk

Sub Makro1()

r = ActiveCell.Row
c = ActiveCell.Column
    Range("B24:D24").Select
    Selection.Copy
  Cells(r, c).Select
    ActiveSheet.Paste
End Sub

Nå, ja. Jeg kan altså ikke læse den, hvis den er nyere end Excel 97 :-(

Skulle være et svar

Kabbak>> Jeg har prøvet  din makro, men den efterlader en markering af de celler der sættes ind i, og den "stiblede" markering om den celle der kopieres
Jeg er efter noget lingende
Sub Makro1()
ActiveCell.Value = Range("A1")
End Sub
Superjap>> Har lidt problemer med at sende noget til dig, er på en platform, og den starlit forbindelse for time out hvergang jeg prøver at sende vedhæftede filer  via min webmail, prøver senere

Sub Makro1()

r = ActiveCell.Row
c = ActiveCell.Column
Cells(r, c) = Range("B24")
Cells(r, c + 1) = Range("c24")
Cells(r, c + 2) = Range("d24")
 
End Sub

denne skulle gøre det.

den stiblede markering kommer fra copy/paste - præcis om når man bruger Ctrl+C og Ctrl+V - kodelinien der fjerner den hedder:
Application.CutCopyMode = False
Efter min mening vil det være smartere at tilføje den linie til den første - altså hvis nu området udvides til flere celler, så bliver den sidste makro noget træls at vedligeholde

som sædvanelig har du ret Flemming.
kommandoen Application.CutCopyMode = False

kendte jeg ikke, men jeg er jo også selvlært. ;-)

selvlært er slet ikke så dumt endda :-)  (det er jeg nemlig også)

Jeg prøver lige senere på dagen, er på nathold (00.25) Den med : Application.CutCopyMode = False, den var jeg kommet frem til, jeg lære hele vejen, så jeg også kan blive selvlært.

Saa er det testet, og det blev:
Sub BHA()

r = ActiveCell.Row
c = ActiveCell.Column
Cells(r, c) = Range("B24")
Cells(r, c + 1) = Range("c24")
Cells(r, c + 2) = Range("d24")
Application.CutCopyMode = False
End Sub
Jeg kunne ikke bruge den første, da det er resultater fra en =lookop(), den flyttede bare formlen og ikke resultatet.Men nu virker det, takker og bukker...:)