Kopi af værdier, hvis sand.

Må heller tilføje at jeg benytter både excel 2007 og 2010.

Hej HBorg

Jeg har følgende VBA kode, som virker i Excel 2003.
Se om du kan bruge den ?

Nedenstående kode virker på Sheet1 ... som du blot kan ændre til det sheet der passer dig ?

Tast alt + F11 i Excel, hvorefter VBA editoren åbnes.
Kopier koden ind i Sheet1´s Change hændelse.

Ønsker du at koden skal handle på andre tal en 1 eller 2, så kan du blot kopiere Case hændelserne nedad ....

Håber det gi´r mening ?

---------

Private Sub Worksheet_Change(ByVal Target As Range)

    'hvis celle J4 ændres
    If Target.Address = "$J$4" Then
        Dim v As Integer
        Dim r As Range
       
        'værdien i celle J4
        v = Target.Value
       
       
            'vælg værdien fra celle J4
            Select Case v
           
                'hvis værdien er 1
                Case 1
               
                    'kopier området AL8:AR11
                    Sheets("Sheet1").Range("AL8:AR11").Copy
                   
                    'vælg celle B8
                    Sheets("Sheet1").Range("B8").Select
                   
                    'indsæt det kopierede, startende i celle B8
                    ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
       
       
                    'fjern kopimarkeringen
                    Application.CutCopyMode = False
                   
                    'vælg celle J4
                    Sheets("Sheet1").Range("J4").Select
                   
                'hvis værdien er 2
                Case 2
               
                    'kopier området AL15:AR18
                    Sheets("Sheet1").Range("AL15:AR18").Copy
                   
                    'vælg celle B8
                    Sheets("Sheet1").Range("B8").Select
                   
                    'indsæt det kopierede, startende i celle B8
                    ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
       
       
                    'fjern kopimarkeringen
                    Application.CutCopyMode = False
                   
                    'vælg celle J4
                    Sheets("Sheet1").Range("J4").Select
                   
                   
                'hvis værdien er 3
                Case 3
               
                 
            End Select
       
       
       
   
    End If

End Sub

----------



Med venlig hilsen, Nicolai

I celle B8 indsætter du følgende formel:
=HVIS(J4=1;AL8;HVIS(J4=2;AL15;""))
tilsvarende/ændrede i øvrige celler i aktuelt område.

Ja, undskyld jeg først vender tilbage nu.... Har haft travlt med andet.

Jeg kan ikke få nogen af de to forslag til at virke.

Ialocin : Dit forslag ser fint ud, men jeg kan bare ikke få det til at virke.
Er heller ikke så kendt (skrab til) det med VBA... ;(

BentTh : Dit forslag giver mig kun værdien en en celle (ikke fra hele celle området), dvs. den kopiere ikke hele celle indholdet hvis betingelsen opfyldt.

Er det mig der er "not" eller gør jeg bare noget der ikke er rigtigt??

Har andre nogle vise råd.

P.S. Det var ellers lidt a la BentTh løsning jeg gerne ville søge, men kan altså slet ikke få den til at virke.

MVH Henrik.

Bare på den igen!
Antag at du har følgende værdier stående i:
AL8:800, AL9:900, AL10:1000,
i AL15:1500, AL16:1600 og i AL17:1700
I J4 står 2
Skriv min formel i celle B8.
Indsæt et dollartegn ($) mellem J og 4
Kopier formlen til celle B9, B10 B11 og B12
Så skal du have reesultaterne 1500 stående i celle B8,
1600 i B9, 1700 i B10 og 0 i B11
BT

Hej BentTH.

Når jeg skriver B8:H11 er det et helt celleområder der skal kopieres - indholdet heri. Nå det bliver lidt langhåret!

Det er nok lettere hvis jeg sender dig filen.
Sender lige filen pr interne mail.
Håber så det fremgår klart.

MVH Henrik.

Hej Henrik

Hvis du får mod på at benytte mit forslag fra #2, så gi´ lyd ... så skal jeg se, om jeg ikke kan guide dig igennem til VBA editoren :o)

Med venlig hilsen, Nicolai

Hej BentTH.

Undskyld jeg aldrig fik sendt filen.
Nu er det ikke aktuelt længere.

Men du skal har tak alligevel - sorry!.

/Henrik