---

Hej

Er der nogen som kan sige mig om man kan (og i så fald hvordan), man
kan checke noget i et andet ark uden at man hopper over i det andet
ark (visuelt) ?

Jeg har en løkke kørende som checker en del ting i et andet regneark.
Når det sker, står Excel og skifter mellem det ene og det andet ark og
dette ser ikke for smart ud.

Det som bruges nu er :

Sheets("Ark2").Select
Range("E4").Select
....

Herefter hopper man tilbage til Ark1 osv...

Der checkes for forsk. ting (bla. en slags lookup funktion - VBA, men
også kopiering af celler mhtr. formattering). Men problemet er at
denne lykke måske køres 100x og hver gang skifter Excel fra det ene
ark til den andet (og tilbage igen) og dette er lidt forvirende at se
på.

På forhånd tak

MJ

---

Absolutt. Koden blir ikke bare penere og langt mer brukervennlig, men også
vesentlig hurtigere.

Det gjøres med en av disse fire syntakser, velg den som passer oppgaven
best. Cells er den beste i løkker.

Sub test()
Sheets(1).Range("C14").Value = Sheets(2).Range("N11").Value
Sheets("Ark1").Range("C14").Value = Sheets("Ark2").Range("N11").Value
Sheets(1).Cells(14, 3).Value = Sheets(2).Cells(11, 14).Value
Sheets("Ark1").Range("C14").Value = Sheets("Ark2").Cells(11, 14).Value
End Sub

HTH. Beste hilsen Harald

"Mike Johnson" <powerviper4@hotmail.com> skrev i melding
news:j86m71peiaj1nb86da3dihjaq5dn9tfl86@4ax.com...
> Hej
>
> Er der nogen som kan sige mig om man kan (og i så fald hvordan), man
> kan checke noget i et andet ark uden at man hopper over i det andet
> ark (visuelt) ?
>
> Jeg har en løkke kørende som checker en del ting i et andet regneark.
> Når det sker, står Excel og skifter mellem det ene og det andet ark og
> dette ser ikke for smart ud.
>
> Det som bruges nu er :
>
> Sheets("Ark2").Select
> Range("E4").Select
> ...
>
> Herefter hopper man tilbage til Ark1 osv...
>
> Der checkes for forsk. ting (bla. en slags lookup funktion - VBA, men
> også kopiering af celler mhtr. formattering). Men problemet er at
> denne lykke måske køres 100x og hver gang skifter Excel fra det ene
> ark til den andet (og tilbage igen) og dette er lidt forvirende at se
> på.
>
> På forhånd tak
>
> MJ
>

---

Hej

Tak for hurtigt svar...

Jeg fandt ud af at nedenstående virkede :

Sheets("Ark2").Range("E6").Offset(0, 0).Copy

MJ


On Fri, 6 May 2005 09:27:33 +0200, "Harald Staff"
<innocent@enron.invalid> wrote:

>Absolutt. Koden blir ikke bare penere og langt mer brukervennlig, men også
>vesentlig hurtigere.
>
>Det gjøres med en av disse fire syntakser, velg den som passer oppgaven
>best. Cells er den beste i løkker.
>
>Sub test()
>Sheets(1).Range("C14").Value = Sheets(2).Range("N11").Value
>Sheets("Ark1").Range("C14").Value = Sheets("Ark2").Range("N11").Value
>Sheets(1).Cells(14, 3).Value = Sheets(2).Cells(11, 14).Value
>Sheets("Ark1").Range("C14").Value = Sheets("Ark2").Cells(11, 14).Value
>End Sub
>
>HTH. Beste hilsen Harald
>
>"Mike Johnson" <powerviper4@hotmail.com> skrev i melding
>news:j86m71peiaj1nb86da3dihjaq5dn9tfl86@4ax.com...
>> Hej
>>
>> Er der nogen som kan sige mig om man kan (og i så fald hvordan), man
>> kan checke noget i et andet ark uden at man hopper over i det andet
>> ark (visuelt) ?
>>
>> Jeg har en løkke kørende som checker en del ting i et andet regneark.
>> Når det sker, står Excel og skifter mellem det ene og det andet ark og
>> dette ser ikke for smart ud.
>>
>> Det som bruges nu er :
>>
>> Sheets("Ark2").Select
>> Range("E4").Select
>> ...
>>
>> Herefter hopper man tilbage til Ark1 osv...
>>
>> Der checkes for forsk. ting (bla. en slags lookup funktion - VBA, men
>> også kopiering af celler mhtr. formattering). Men problemet er at
>> denne lykke måske køres 100x og hver gang skifter Excel fra det ene
>> ark til den andet (og tilbage igen) og dette er lidt forvirende at se
>> på.
>>
>> På forhånd tak
>>
>> MJ
>>
>

---

Vel, den kopierer, men limer ikke. Ett ekstra argument så kan den det også:

Sheets("Ark2").Range("E6").Copy Sheets("Ark3").Range("B12")

Offset(0, 0) er nonsens. Fjern det.

Merk at Copy tar med seg formler, formater, skriftstørrelse, kantlinjer og
the works, det er i de fleste tilfeller ikke nødvendig.

HTH. Beste hilsen Harald

"Mike Johnson" <powerviper4@hotmail.com> skrev i melding
news:rf7m71pe0ucq6b75ne605ci4sn7ufl98m9@4ax.com...
> Hej
>
> Tak for hurtigt svar...
>
> Jeg fandt ud af at nedenstående virkede :
>
> Sheets("Ark2").Range("E6").Offset(0, 0).Copy

---

Tak, man kan jo lige så godt fjerne unødige ting


On Fri, 6 May 2005 12:06:00 +0200, "Harald Staff"
<innocent@enron.invalid> wrote:

>Sheets("Ark2").Range("E6").Copy Sheets("Ark3").Range("B12")

---

Hov forresten... Jeg skal vel bruge offset (eller beregne mig frem til
cellen) da jeg ikke kopiere til samme celle.

On Fri, 6 May 2005 12:06:00 +0200, "Harald Staff"
<innocent@enron.invalid> wrote:

>Sheets("Ark2").Range("E6").Copy Sheets("Ark3").Range("B12")

---

Som jeg kan blive ved.

Har måske selv fundet løsningen, da det måske kan kombineres med

Sheets("Ark2r").Range("E4").Offset(CodeNo, 0). ???


On Fri, 06 May 2005 09:20:39 +0200, Mike Johnson
<powerviper4@hotmail.com> wrote:

>Hej
>
>Er der nogen som kan sige mig om man kan (og i så fald hvordan), man
>kan checke noget i et andet ark uden at man hopper over i det andet
>ark (visuelt) ?
>
>Jeg har en løkke kørende som checker en del ting i et andet regneark.
>Når det sker, står Excel og skifter mellem det ene og det andet ark og
>dette ser ikke for smart ud.
>
>Det som bruges nu er :
>
> Sheets("Ark2").Select
> Range("E4").Select
>...
>
>Herefter hopper man tilbage til Ark1 osv...
>
>Der checkes for forsk. ting (bla. en slags lookup funktion - VBA, men
>også kopiering af celler mhtr. formattering). Men problemet er at
>denne lykke måske køres 100x og hver gang skifter Excel fra det ene
>ark til den andet (og tilbage igen) og dette er lidt forvirende at se
>på.
>
>På forhånd tak
>
>MJ

---

Glemte lige at nævne :


Så man måske kunne kombinere :


Sheets("Ark2").Range("E5").Selection.Copy

Istedet for :

Sheets("Ark2").Select
Range("E6").Select
Selection.Copy

Sidstnævnte hopper nemlig over i ark2 (visuelt og det vil helst
undgås)

MJ