Boe Juniormester
08. juli 2020 - 10:37 Der er 1 kommentar og
1 løsning

Gentagelse / Sløjfe på Makroer OG gå til et variabelt-sted

Hej Eksperten - tak for jeres gode hjælp!

Jeg har en superfin Makro (TAK for den store Morten) men drømmer videre om forbedringer. Makroen kan...:
stå i bestemt celle (fx A1) marker denne og de to celler til højre for (fx B1 og C1), kopier indholdet og sæt det ind i rækkerne under - dvs. a2-b2-c2, a3.b3.c3 Ax,Bx,Cx. Den stopper når der næste gang kommer en udfyldt A celle.

Jeg vil gerne have følgende forbedring... Når makroen har kørt, skal "den" placere sig selv i den "nye A-celle" dvs. gøre klar til at køre igen. Det er JO ikke et bestemt sted hver gang - men den skal gå til "sidste udfyldte felt i A kolonnen i stil med genvejen ctr-pil-ned.

Det næste jeg ønsker mig, er at den gentager sig selv - dvs. laver en repeat på min oprindelige makro+tilføjelsen INDTIL noget bestemt sker.
Det kan fx være at jeg skal sætte en bestemt tekst ind i sidste række af mine date (fx forslag ...STOP) i "A38990" og når makroen når dertil så ved den, at den skal stoppe...

Er der nogen der kan knække den for mig 🤔?
TAK!!!
jens48 Ekspert
08. juli 2020 - 12:34 #1
Det kan klares uden makro på følgende måde:
1. Vælg det område, hvor du ønsker at udfylde de tomme celler (for eksempel A1:C1000)
2. Vælg Gå til (F5), Speciel og blanke
3. Skriv i aktive celle (I eksemplet bliver det B1) =A1. Tryk Ctrl + Enter
4. Vælg A1:C1000 igen. Kopier og Paste værdier
store-morten Ekspert
08. juli 2020 - 12:57 #2
Sub test3()
Application.ScreenUpdating = False

    Dim Rk As Integer
    On Error GoTo fejl:

    Rk = InputBox("Tast et tal", "Angiv sidste række der skal udfyldes") - ActiveCell.Row

For Each c In Range(ActiveCell.Address & ":" & ActiveCell.Offset(Rk, 0).Address)

If IsEmpty(c) Then
    Range(ActiveCell.Address & ":" & ActiveCell.Offset(0, 2).Address).Copy
    c.Activate
    ActiveCell.PasteSpecial
End If
c.Activate
Next c

fejl:
    If Err.Number = 13 Then
        MsgBox "Du skal indtaste et tal - prøv igen"
    End If

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
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

Opret Preview

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





Premium
Blandt 18.000 indberetninger om databrud er menneskefejl den mest almindelige: Sådan undgår din virksomhed de mest basale databrud
18.000 anmeldelser om databrud er tikket ind hos Datatilsynet siden siden GDPR-loven trådte i kraft. "Mange af de fejl, som vi ser, beror på relativt banale fejl,” lyder det fra tilsynets it-sikkerhedspecialist Allan Frank. Se her, hvordan du relativt nemt kan undgå dem.
Computerworld
IBM vinder millionaftale om nyt toldsystem
Skatteforvaltningen har tegnet en tiårig kontrakt IBM om levering af det sidste it-system til i en omfattende systemudskiftning i toldsystemerne og som først forventes afsluttet i 2025. Se alle detaljerne her.
CIO
Podcast: Hos Viking Life-Saving Equipment er it gået fra at være backend til at være noget, som kunderne spørger aktivt efter
Podcast, The Digital Edge: Viking leverer en stadig større del af deres produkt som en tjeneste. Som en del af tjenesten tager Viking ansvar for sikkerheden ved at levere, dokumentere og vedligeholde det nødvendige sikkerhedsudstyr. Hør hvordan Henrik Balslev senior digital director hos Viking har løftet den opgave.
Job & Karriere
Microsoft i kæmpe dansk satsning - åbner tre store datacentre i Danmark
Microsoft lancerer kæmpe satsning fra hovedkvarteret i Lyngby. Selskabet åbner tre store bæredygtige datacentre på Sjælland.
White paper
Cisco Umbrella: Sådan udvikler truslerne sig netop nu
Hver eneste dag håndterer de mere end 30 datacentre under Cisco Umbrella mere end 240 milliarder forespørgsler fra 190 lande. Det giver sikkerhedseksperter hos Cisco Talos et enestående datagrundlag for at kortlægge, hvordan cybertrusselsbilledet udvikler sig. I dette whitepaper kan du læse, hvordan trusselsbilledet har udviklet sig hen over 2020. Men – endnu vigtigere – om, hvordan din organisation bedst forbereder sig på at håndtere truslerne i tiden der kommer.