Oprettet ons. d. 16. december 2009 kl. 10:54:28

petert
petert (5.735 point. Point ude: 0)

Hjælp til makro kode

Hej alle
Jeg har en projekt mappe jeg skal bruge til kladde,tilbuds skrivning og matriale bestilling.
Mappen består af 3 ark. Kladde, tilbud og matrialer.
Jeg har brug for hjælp til følgende kode jeg kan kører fra arket kladde.
Hvis der i arket Kladde kolonne A er et tal, skal denne række kopires (kun cellene A;B;C;D;F)og indsættes i arket tilbud fra række 23 og ned efter.
Koden skal gælde for hele arket Kladde
Derudover skal koden gøre følgende
Hvis der i arket Kladde kolonne I er et tal, skal denne række kopires (Kun cellerne I;J;K;L)til arket matrialer og indsættes fra række 10 og nedefter.
Koden her skal også gælde for alle rækkerne i kladde arket.

Mvh
Petert

Skrevet lør. d. 19. december 2009 kl. 16:23:59| #1

jkrons
jkrons (93.961 point)
Denne burde løse dit problem.

Sub KopierTilAndreArk()
'Koper fra A-kolonne til Tilbud
    For Each c In Sheets("Kladde").Range("A:A").Cells
        If IsEmpty(c.Value) Then GoTo hertil:
        If IsNumeric(c.Value) Then
            rk = c.Row
            Range("A" & rk & ":F" & rk).Copy
            Sheets("Tilbud").Select
            If ActiveSheet.Range("A23").Value = "" Then
                Range("a23").Select
                ActiveSheet.Paste
            Else
                Range("A65536").End(xlUp).Offset(1, 0).Select
                ActiveSheet.Paste
            End If
            Sheets("Kladde").Select
        End If
   
hertil:
    Next c
'Koper fra I-kolonne til MateriaLER
    For Each ci In Sheets("Kladde").Range("I:I").Cells
        If IsEmpty(ci.Value) Then GoTo dertil:
        If IsNumeric(ci.Value) Then
            rki = ci.Row
            Range("I" & rki & ":L" & rki).Copy
            Sheets("Materialer").Select
            If ActiveSheet.Range("I10").Value = "" Then
                Range("I10").Select
                ActiveSheet.Paste
            Else
                Range("I65536").End(xlUp).Offset(1, 0).Select
                ActiveSheet.Paste
            End If
            Sheets("Kladde").Select
        End If
dertil:
    Next ci
End Sub

Skrevet lør. d. 19. december 2009 kl. 19:41:12| #2

petert
petert (5.735 point)
Hej
Tak for svaret
Jeg tror den er lige ved at være der men der sker noget fokert.

Den kører ligesom i ring og indsætter rækkerne i tilbud flere gange der ned af og den indsætter rækkerne i kolonne I i arket materialer og ikke i kolonne A på arket Materialer
Hvis du bedre kan se problemet kan jeg sende excel mappen til dig hvis du har en mail.
MVH
Petert

Skrevet lør. d. 19. december 2009 kl. 19:51:39| #3

petert
petert (5.735 point)
Hej igen
Det virker som det skal men kan du ikke ændre koden så den indsætter i kolonne A række 14 på arket materialer så virker det som det skal.
( jeg havde fået lavet noget ged i makroen.)
Mvh
Petert

Skrevet lør. d. 19. december 2009 kl. 19:53:58| #4

petert
petert (5.735 point)
Hej igen igen
Der er noget galt. jeg tror du skal se projekt mappen
Mvh
Petert

Skrevet lør. d. 19. december 2009 kl. 23:27:34| #5

jkrons
jkrons (93.961 point)
Send mappen til jan @ kronsell dot net

Skrevet søn. d. 20. december 2009 kl. 06:59:14| #6

petert
petert (5.735 point)
Jeg har sendt + forklaring

Skrevet søn. d. 20. december 2009 kl. 11:28:29| #7

jkrons
jkrons (93.961 point)
Jeg ser på den senere i dag.

Skrevet fre. d. 09. juli 2010 kl. 14:33:09| #8

petert
petert (5.735 point)
Hej Læg et svar så jeg kan luke dette.
MVH
Petert

Skrevet lør. d. 31. juli 2010 kl. 06:58:57| #9

petert
petert (5.735 point)
Jeg lukker dette. Tak for hjælpen.
Mvh
Petert

Skrevet lør. d. 31. juli 2010 kl. 06:59:43| #10

petert
petert (5.735 point)
Jeg lukker dette. Tak for hjælpen.
Mvh
Petert

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

Kopier, indsæt specielt. værdi eller formel

Oprettet den 10. september 2010 kl. 13.26
boro23 giver 30 point for svar | Giv et svar »

Brug af formel til betinget formatering

Oprettet den 10. september 2010 kl. 12.35
Ducchick giver 30 point for svar | Giv et svar »

Fusion af to kolonner i en tredje.

Oprettet den 10. september 2010 kl. 11.51
plovfure giver 100 point for svar | Giv et svar »

Seneste guides

100% højde med CSS i alle browsere
XML
2 Ting du skal holde øje med





Tips & Tricks fra PC World

Teaser billede

Outlook: Få overblik over kollegaernes tid

Planlægningsvisning er en ny måde at få et hurtigt overblik over, hvornår du kan sammenkalde dit team til et hurtigt møde. Se her, hvordan det virker.


Anmeldelser fra PC World

Teaser billede

Test: Smart GPS-ur til løb og cykelture

Garmins Forerunner 110 er en meget underholdende makker, uanset om du løber, kører mountainbike i skoven eller drøner rundt på rulleskøjter. Vi har testet det GPS-baserede motions-ur.


Seneste blogindlæg

Teaser billede

Kvittering og status

På Eksperten er der 914.000 spørgsmål. Af dem er 162.000 åbne spørgsmål hvor der ikke er et accepteret svar, selvom der ligger forslag til svar på 63.000 af dem. Mange af dem ligger mange år...


Nyheder fra PC World

Teaser billede

Spar tid når du søger på Google

Google er hurtig, men du kan kappe flere sekunder af en søgning og spare tid. Se her, hvordan en ny søgemetode giver dig resultater hurtigere end nogensinde før.


Nyheder fra Computerworld

Teaser billede

'Here you have'-ormen breder sig via e-mail

Du skal passe på, hvis du modtager en email med navnet "Here you have..."



Kurser
Samarbejdspartnere

Udgiver · © 2010 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301