Søg
Avatar billede MDMSS Nybegynder
21. januar 2013 - 15:14 Der er 4 kommentarer og
1 løsning

Find og indsæt i ledig celle

Hej.

Jeg har 2 ark, Sheet 1 og Sheet 2.

I Sheet 1 vælges der i mellem action og no action i celle C8:C58. Hvis der vælges Action skal teksten i celle B8:B58 dvs til venstre for det valgte, flyttes over i Sheet 2 i den første ledige celle fra B10.B60. Det skal være således at der ikke opstår tomme celler i Sheet 2. Dvs. hvis det f.eks. kun er celle C13 og C40 som der vælges action i, så skal teksten til venstre for disse placeres i Sheet 2 celle B10 og B11.

Jeg har indtil videre kun kunne lave en hvis formel, som ser således ud: =IF('Data Collection'!C8=BAD,'Data Collection'!B8,"")

Denne refererer dog kun til én celle, hvilket betyder at jeg får blanke celler. BAD er navnet på en celler hvor der står Action i.

Håber nogen kan hjælpe.
Avatar billede jens48 Ekspert
21. januar 2013 - 19:59 #1
Prøv at sætte denne makro ind i Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C8:C58")) Is Nothing Then
Worksheets("Sheet2").Range("B10:B60").ClearContents
y = 10
For x = 8 To 58
If Cells(x, 3) = "Action" Then
z = Cells(x, 2)
Sheets("Sheet2").Cells(y, 2) = z
y = y + 1
End If
Next
End If
End Sub
Avatar billede MDMSS Nybegynder
22. januar 2013 - 09:51 #2
Den siger Compile error: Ambigious name detected: Worksheet_Change.
Avatar billede MDMSS Nybegynder
22. januar 2013 - 10:12 #3
Virker perfekt. Jeg kom til at køre det som en makro for hele worksheet, i stedet for kun sheet 1.
Avatar billede MDMSS Nybegynder
22. januar 2013 - 10:26 #4
Her er lignende problemstilling:

I sheet 2 vælger man i celle D10:D39 og E10:E39 et tal fra 1-10. Hvis begge tal er 5 eller derover skal teksten i celle B10:B39 (dvs. til venstre for igen) og teksten i celle C10:C39 flyttes over i sheet3 i hhv. celle C10:C23 og D10:D23.

Dvs. samme problæem, bare endu en faktor og 2 tekster der skal flyttes.
Avatar billede MDMSS Nybegynder
22. januar 2013 - 11:35 #5
Jeg har fikset den selv nu. Tak for det første.
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
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
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 09:43 AI google.com Af Peter Olsen i Andre onlineløsninger
31/0310:22 Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel
30/0313:45 Kablet forbindelse mellem android telefon og windows 11 pc Af 1Dorte i Android
30/0312:04 Elementtype vises - og ikke billedet? Af hkprofil i Billedbehandling
29/0312:08 Problemer med replay af købte kursusvideoer Af annam i Browsere
White papers
Flere white papers »