/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Variabelt valg af 'rows'
Fra : Niels Mølgaard Peder~


Dato : 28-06-02 08:52

Hej NG

Et par simple spørgsmål, jeg er kørt totalt sur i. Kan muligvis ikke se
skoven for bare...

1) Hvordan markerer jeg nogle rækker fra et excel-ark som nedenfor, blot med
variable i stedet for "31:43"?

Rows("31:43").Select
Selection.Delete Shift:=xlUp

2 ) Jeg vil gerne have kopieret indholdet fra et sheet over i et andet, hvor
det skal stå øverst. Igen skal rækkenumrene være variable. En copy-paste
duer ikke, da jeg så blot rykker formeludtrykkene med op. Havde forestillet
mig noget som:

Range(Sheets("Sheet2").Cells(1,1),Sheets("Sheet2").Cells(j-i+1,25)) =
Range(Sheets("Sheet1").Cells(i,1),Sheets("Sheet1").Cells(j,25))

Men der sker ikke en sk**. Hvad gør jeg forkert?

Håber nogle har en simpel løsning. Mvh Niels


 
 
Keld Nygaard (28-06-2002)
Kommentar
Fra : Keld Nygaard


Dato : 28-06-02 09:07

>
> Rows("31:43").Select
> Selection.Delete Shift:=xlUp
>
intRows1 = 31
intRows2 = 43

Rows(intRows1 & ":" & intRows2).Delete Shift:=xlUp


> 2 ) Jeg vil gerne have kopieret indholdet fra et sheet over i et andet,
hvor
> det skal stå øverst. Igen skal rækkenumrene være variable. En copy-paste
> duer ikke, da jeg så blot rykker formeludtrykkene med op. Havde
forestillet
> mig noget som:
>

Følgende kopiere hele Ark1 over i Ark2 - var det noget i den stil du havde
tænkt dig?

Sheets("Ark1").Select
Cells.Select
Selection.Copy

Sheets("Ark2").Select
Range("1:1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False

Mvh
keld nygaard



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste