Avatar billede poolplayer Nybegynder
03. januar 2008 - 01:59 Der er 14 kommentarer og
1 løsning

Hvis formel eller andet som kan løse mit problem

a1=??

a3=15 b3=14 c3=13 d3=12 e3=11
a4=10 b4=9  c4=8  d4=7  e4=6
a5=5  b5=5  c5=5  d5=5  e5=5

Hvis a1=8 skal cellerne som indeholder tallene op til 8 kopieres til cellerne f.eks a10 til a18

Hvis a1=12 skal cellerne som indeholder tallene op til 12 kopieres til cellerne f.eks b10 til b22

osv. osv.

Hvordan kan man gøre det smart uden at sidde og lave en masse formler og mellmeregninger...kan man i det hele taget..??

På forhånd tak for hjælpen.
Avatar billede jlemming Nybegynder
03. januar 2008 - 07:46 #1
skal tallet i a1 bestemme hvilke række de skal stå i?
Avatar billede jlemming Nybegynder
03. januar 2008 - 07:53 #2
mener du således?

Sub Button2_Click()

t = 2
For Each c In Range("A3:E5")
    If c.Value < Cells(1, 1) Then
        Cells(10, t) = c.Value
        t = t + 1
    End If
Next

End Sub
Avatar billede jlemming Nybegynder
03. januar 2008 - 08:13 #3
Glem den anden kode.

Denne skriver i en ny kolonne hvergang koden køres

Sub Button2_Click()

r = 10
For Each f In Range("A10:G10")
    If f = "" Then
        For Each c In Range("A3:E5")
            If c.Value < Cells(1, 1) Then
                Cells(r, f.Column) = c.Value
                r = r + 1
            End If
        Next
    Exit Sub
    End If
Next
End Sub
Avatar billede poolplayer Nybegynder
03. januar 2008 - 09:39 #4
Nej og ja, det er et spilleskema og der vil være 4 steder i skemaet hvor der vil blive indtastet tal mellem 8 og 15 - afhængigt af hvilket tal der bliver sat ind disse steder skal det kopieres. Er tallet 8, skal de rette celler kopieres hen til "8" kolonnen, er tallet 9 skal det hen til "9" kolonnen osv. osv.
Jeg er ikke supermand til excel, så din kode - hvor skal jeg skrive den ind henne.?
pft.
Avatar billede jlemming Nybegynder
03. januar 2008 - 09:45 #5
har lige et møde er tilbage en ½ time
Avatar billede jlemming Nybegynder
03. januar 2008 - 11:58 #6
Så er den ½ time hvis gået :o)

Der er forskellige måder at sætte koden ind på

f.eks opret en knap

vælg view, toolbars,forms, vælg knappen, tegn den, i popup vælger du new, koden indsættes herefter mellem de 2 linier, tilbage på arket skulle din knap nu virke

dansk( vis,værktøjslinie,formula)

r = 10
For t = r To r + 15
  Cells(r, Cells(1, 1)) = ""
Next t
For Each c In Range("A3:E5")
    If c.Value < Cells(1, 1) Then
        Cells(r, Cells(1, 1)) = c.Value
        r = r + 1
    End If
Next
Avatar billede poolplayer Nybegynder
03. januar 2008 - 16:10 #7
jlemming - ingen problemer, jeg har alligevel ikke haft tid.
Du er inde på noget af det rigtige, men fordi jeg "troede" at det kunne løses via en formel (som jeg selv kunne tilrette bagefter) så er mit celle eksempel ikke tydeligt nok. Under celle A3-E3 altså i A4-E4 står der de tal som jeg skal hente, det samme gør sig gældende for A5-E5 her er det i A6-E6 og til sidst i A7-E7 der er det A8-E8 ( alle er bare eksempler da de står nogle helt andre steder i mit regneark.)i A1 vil der så blive tastet et tal mellem 8 og 15. For at gøre det avanceret, så har jeg 4 af disse på hvert ark dvs. at det hele kommer igen i G1, G3-K3 osv, i M1, M3-Q3 osv. og sidst i S1, S3-W3 osv. og alle disse skal så "sendes ud" på nogle skjulte kolonner længere ude til højre i arket. Beklager hvis det er dårligt formuleret, så spørg endelig. Vedr. din kode kan den ikke "nedbrydes" så jeg forstår den, måske jeg selv kan tilrette den så det passer når jeg forstår hvad der står.....:-)
Avatar billede jlemming Nybegynder
03. januar 2008 - 21:08 #8
Den tykker jeg lige lidt på. :o)

Bare for at være sikker, det er kun A1 der bestemmer for hele arket.?

Kan du evt. sende filen til mig

lemming,J (a) gmail,dk

,=.
Avatar billede jlemming Nybegynder
04. januar 2008 - 09:02 #9
undskyld

lemming,J (a) gmail,COM
Avatar billede poolplayer Nybegynder
04. januar 2008 - 11:10 #10
Nej, det er ikke A1 der bestemmer, der er 4 kolonner i alt hvor der kan indtastet tal fra 8-15. Jeg sender arket til dig, så kan du se om du kan gennemskue hvad det er jeg gerne ville kunne. Tak for hjælpen
Avatar billede jlemming Nybegynder
07. januar 2008 - 11:45 #11
Jeg fik ikke lige tid i weekenden, men tror jeg har fattet det nu, kigger på det iaften.
Avatar billede poolplayer Nybegynder
07. januar 2008 - 12:04 #12
Takker, det haster ikke....endnu..:-)
Avatar billede poolplayer Nybegynder
09. januar 2008 - 16:35 #13
Hej jlemming. Jeg har modtaget dit ark og vil kigge din løsning igennem så snart jeg får tid - umiddelbart ser det rigtig godt ud.
Avatar billede poolplayer Nybegynder
13. januar 2008 - 11:38 #14
Hej jlemming.
Det er bare helt perfekt det som du har lavet, "send" et svar så du kan få dine velfortjente point. Tusinde tak for hjælpen.
Avatar billede jlemming Nybegynder
13. januar 2008 - 13:25 #15
Velbekomme :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester