CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

MNJ Nybegynder

10. februar 2012 - 11:39 Der er 8 kommentarer og
1 løsning

Find første ledige celle og indsæt en formel

Jeg mangler en kode til en macro der kan:

Finde første ledige celle/række i kollonne A fra linie 20 til linie 47.
Når den er fundet (lad os sige det er A30)
skal macroen, i feltet under (altså A31), indsætte formlen:
=SLUT.PÅ.MÅNED("Feltet over - eks. A30";0)
og til slut, Skal curseren stille sig i den først (A30)

Håber nogen kan hjælpe :)

MNJ

Synes godt om

anlu Nybegynder

11. februar 2012 - 10:53 #1

Dette burde gøre hvad du har beskrevet. Men som altid - tag lige en backup inden du tester. Og jeg har tolket din tekst således at hvis A47 er første ledige celle, så skal der skrives i A48. Hvis A47 derimod var den sidste celle der skulle skrives i, skal du lige rette 47 til 46 et par steder.


Public Sub FindTomtFelt()
    Dim r As Range
    Set r = ActiveSheet.Range("A20")
    
    Do While r.Value <> "" And r.Row <= 47
        Set r = r.Offset(1, 0)
    Loop
    
    If r.Row <= 47 Then
        r.Offset(1, 0).Formula = "=EOMONTH(" & r.Address & ",0)"
        r.Select
    End If
End Sub

P.s. Jeg har kun engelsk version af Excel - men jeg er ret sikker på at den selv finder ud af at "EOMONTH" hedder SLUT.PÅ.MÅNED på dansk.

Synes godt om

MNJ Nybegynder

14. februar 2012 - 08:30 #2

Hej Anlu

1.000 tak - det virker :)

Hvis jeg gerne vil lave en anden makro
hvor den blot finder sidste ledige linie i samme initerval
som ovenstående og her indsætte
Formula = "=EOMONTH(" & r.Address & ",1)"
Hvad skal jeg så gøre?

På forhånd tak!

Synes godt om

vejmand Juniormester

14. februar 2012 - 09:01 #3

MNJ >> husk du skal ikke selv sende som svar, men som kommentar.
Svar er til pointgivning.

Synes godt om

anlu Nybegynder

14. februar 2012 - 09:18 #4

Hvis det ikke skal være i linjen under, men blot i det første ledige felt, der skal skrives, så bliver linjen hvor du sætter formlen til:

r.Formula = "=EOMONTH(" & r.Address & ",1)"

Synes godt om

MNJ Nybegynder

14. februar 2012 - 09:54 #5

Tak Anlu :)

Du fortjener virkelig dine point..

- sidste sp. hvordan får jeg givet dig dem?

Synes godt om

anlu Nybegynder

14. februar 2012 - 09:59 #6

Det var så lidt. Du giver point ved at acceptere dette svar :-)

Synes godt om

MNJ Nybegynder

14. februar 2012 - 10:23 #7

Kan dog ikke få sidste macro til at fungere.
Kan godt få placeret datoen i rigtig felt, men

r.Formula = "=EOMONTH(" & r.Address & ",1)"

Tager ikke udgangspunkt i feltet over ??
så skriver den bare en mærkelig dato.

Synes godt om

anlu Nybegynder

14. februar 2012 - 10:28 #8

Nå ja, selvf. - havde lige overset det med hvad den skulle tage udgangspunkt i, sorry:

r.Formula = "=EOMONTH(" & r.Offset(-1,0).Address & ",1)"

Synes godt om

MNJ Nybegynder

14. februar 2012 - 10:35 #9

Tak det hjalp :) :)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Makro: Hvis fundet flere, så.... Af EveryMA i Excel	0	I dag 15:28	-
Dato opslag Af Klaus W i Excel	2	I går 16:17	I går 20:45
Slet automatisk indehol i felt så det blivet tomt Af gylling i Excel	1	I går 09:22	I går 17:02
Træk dato og måned ud af celle Af Klaus W i Excel	4	04/05/202413:46	04/05/202417:10
Nul efter forreste tal Af Marting i Excel	2	02/05/202421:50	I dag 18:20

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS