VB Hent værdi som =A1

F.eks
Skal tage værdi fra Ark1;A1,B1,C1,D1 Og hente det over på Ark2 "A1"i D3,"B1"i A4
"C1"i E7,"D1"i F1,

Så hvis man på ark1 mærker og rykker A1:D1, Til A2:D2. Ville formlen ikke følge med som hvis man bruger =.

Sub test

Dim c As Range
Set c = Workbooks("NavetPåDinExelFil").Sheets("NavnetPåDittArk").Range("A1")
' Nå kan man hente verdien fra A1 ved å skrive:  = c.value
msgbox c.value 'prøv denne som eksempel
end sub

Hvis du bytter ut "Bok1" med navnet på din excelfil, kan ditt eksempel se slik ut:

Sub test()
Dim c(4) As Range

  With Workbooks("Bok1").Sheets("Ark1")
  Set c(1) = .Range("A1")
  Set c(2) = .Range("B1")
  Set c(3) = .Range("C1")
  Set c(4) = .Range("D1")
  End With
 
  With Workbooks("Bok1").Sheets("Ark2")
    .Range("D3").Value = c(1)
    .Range("A4").Value = c(2)
    .Range("E7").Value = c(3)
    .Range("F1").Value = c(4)
  End With

End Sub

Denne her virker man så skal man trykke på en knap... kan man ikke gøre det så den gør det pa automatic. så hvis man skriver i a1"ark1" Viser den det på D3"ark2" og hvis det ikke er nogle værdi i a1 vil der heller ikke være det i D3...


Sub test()
Dim c(4) As Range

  With Workbooks("Bok1").Sheets("Ark1")
  Set c(1) = .Range("A1")
  Set c(2) = .Range("B1")
  Set c(3) = .Range("C1")
  Set c(4) = .Range("D1")
  End With
 
  With Workbooks("Bok1").Sheets("Ark2")
    .Range("D3").Value = c(1)
    .Range("A4").Value = c(2)
    .Range("E7").Value = c(3)
    .Range("F1").Value = c(4)
  End With

End Sub

Hvor denne her er jeg ikke helt med på.. :S
Sub test

Dim c As Range
Set c = Workbooks("NavetPåDinExelFil").Sheets("NavnetPåDittArk").Range("A1")
' Nå kan man hente verdien fra A1 ved å skrive:  = c.value
msgbox c.value 'prøv denne som eksempel
end sub

Er det ikke bedre å benytte en ren excelformel i dette tilfelet?
Hvis du skriver denne formel i Ark2 D3:

=Ark1!A1
Da vil oppdateringer skje automatisk.

Hvis du ikke ønser 0 på tomme celler kan dette være en løsning:
=HVIS(Ark1!A1 = "";"";Ark1!A1)

Dim c As Range
her lager man en varialbel som kan inneholde en celle

Set c = Workbooks("NavetPåDinExelFil").Sheets("NavnetPåDittArk").Range("A1")
Her tilordner man variabelen til en bestemt celle.


Nå kan man hente veriden i denne celle med uttrykket c.value
feks.
msgbox c.value vil vise verdien i cellen, som en meldingsboks.

Det jeg skal bruge det til er at, på ark1 har jeg 12 mærkninger B10:S10,B11:S11- Til B21:S21 Der har jeg 12 knapper ud fra som smider det ned på C24:O43 makro-
Sub Setup1()
'
' Setup1 Makro
'

'
    Range("B10:D10").Select
    Selection.Copy
    Range("C22:C23").Select
    ActiveSheet.Paste
    Range("E10:I10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F22").Select
    ActiveSheet.Paste
    Range("J10:N10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F23").Select
    ActiveSheet.Paste
    Range("O10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("K22").Select
    ActiveSheet.Paste
    Range("P10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("K23").Select
    ActiveSheet.Paste
    Range("Q10:S10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L22:L23").Select
    ActiveSheet.Paste
End Sub
Dette er den første række B21:S21. det er det at din kode til at overføre til Ark2 fordi det er den første række det er 13 ark i alt hvor de 12 af dem henter data fra ark 1. De 12 ark er bare et setup til at printe fra, denne her ville være fin for mig =HVIS(Ark1!A1 = "";"";Ark1!A1) el. bare =Ark1!A1, med det er ikke alle som kan gøre hvad der bliver sagt og så hviver de der bare rundt så de har som henter data ikke gør det der hvor de skal... :S

slut