Søg
Avatar billede nehm Nybegynder
27. april 2012 - 11:31 Der er 7 kommentarer og
1 løsning

Loop paste celler når der er en værdi i A

En VBA code som kan lave et loop i et excel ark

Jeg har lavet en række formler i C2:AC2 dem vil jeg gerne kopier til alle rækker som har en værdi i kollone A i samme sheet
Avatar billede store-morten Ekspert
27. april 2012 - 12:50 #1
Prøv:
Sub KopiVedTegniA()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False
    For Each c In ActiveSheet.Range("A3:A10").Cells 'Ret celler for indsæt
        If c.Value <> "" Then
            Range("C2:AC2").Copy Destination:=c.Offset(0, 2)
        End If
    Next c
   
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub
Avatar billede nehm Nybegynder
28. april 2012 - 08:50 #2
Din virker, men jeg skal køre den på mellem 5000-10000 linier og det tage lang tid med denne her :-)

Er der en måde hvor man kan tælle linier i A som ikke er Blanke og så bruge det resultat i et range C3:AC(resultat) ?
Avatar billede store-morten Ekspert
28. april 2012 - 11:30 #3
Prøv at teste denne:
Sub KopiVedTegniA_version_2()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False

    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$35").AutoFilter Field:=1, Criteria1:="<>"
   
    Range("C3:AC3").Copy
   
        sidste = Range("A65536").End(xlUp).Offset(0, 28).Address
        Range("C3:" & sidste).Select
       
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
 
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub
Avatar billede store-morten Ekspert
28. april 2012 - 11:51 #4
Der var så lige en række fejl.
Range("C3:AC3").Copy
Rettet til:
Range("C2:AC2").Copy

Sub KopiVedTegniA_version_2()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False

    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$35").AutoFilter Field:=1, Criteria1:="<>"
   
    Range("C2:AC2").Copy
   
        sidste = Range("A65536").End(xlUp).Offset(0, 28).Address
        Range("C2:" & sidste).Select
       
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
   
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub
Avatar billede store-morten Ekspert
28. april 2012 - 11:57 #5
Og linien:
ActiveSheet.Range("$A$1:$A$35").AutoFilter Field:=1, Criteria1:="<>"

Virker ;-)

Men er nok mere korrekt sådan:

ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="<>"
Avatar billede store-morten Ekspert
28. april 2012 - 12:11 #6
Sub KopiVedTegniA_version_2()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False

    Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="<>"
   
    Range("C2:AC2").Copy
   
        sidste = Range("A65536").End(xlUp).Offset(0, 28).Address
        Range("C2:" & sidste).Select
       
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFilter
   
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub
Avatar billede nehm Nybegynder
28. april 2012 - 13:20 #7
Den virker perfekt smid et svar :-)
Avatar billede store-morten Ekspert
28. april 2012 - 13:27 #8
Kommer her ;-)
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Opdatering af celler i excel ark Af lurup i Excel 2 09/06/202619:40 10/06/202614:34
data fra et excel til google kalender Af lurup i Excel 3 02/06/202613:23 03/06/202615:06
Inverse formler Af tdktman i Excel 5 26/05/202616:16 28/05/202606:50
Flere brugere i 1 delt pivottabel Af mira96ac i Excel 3 26/05/202609:09 28/05/202604:23
Beregning af flextid - formler Af Slettet bruger i Excel 0 25/05/202618:29 -
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 14:56 Kan ikke ændre drevbogstav Af mort1 i Windows
12/0612:46 får fejl ved at følge et link i Chrome Af Erik Hovedskou i Browsere
11/0618:29 Leak-bot gratis tilbud fra Alm. brand Af nu_igen i Apps til iOS
11/0612:02 Proceslinje pludselig lodret til venstre i Win 11 Af ErikHg i Windows
10/0621:27 Vise billeder på skærm Af 1Dorte i Fjernsyn & projektorer
White papers
Flere white papers »