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
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 12 24/07/202611:08 27/07/202623:59
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
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:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
25/0713:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
White papers
Flere white papers »