Excel - Hente ut teksten fra en kollone basert på verdiene i en annen...

[ThE_GuN]

Hmmm, litt vanskelig å forklare så jeg skal men dette er hva jeg ønsker å gjøre:

 

Jeg har 6 ark med tabeller, I kolonne A har jeg navn... så har jeg i B-J uker, hvis noen har ferie i en av disse ukene putter jeg en X der. ALLE kommer til å ha en X i F kolonnen da vi er stengt da.

 

Det jeg ønsker å gjøre er å finne alle de som enda ikke har X i kolonne F og lage en liste av disse for lett å finne hvem som enda ikke er fylt inn.

 

Dette fungerer, men det blir veeeldig langt:

=HVIS(ERTOM(F3);A3;HVIS(ERTOM(F4);A4;HVIS(ERTOM(F5);A5)))

 

 

Tenkte meg noe som dette:

=SAMMENLIGNE(SANN;INDEKS(F3:F16="";0);0)

 

Men finner jeg bare hvilken F kolonne som er tom, ikke A... noen som har noen tips til meg?

[Harald Staff]

Dette gjør du nok enklest ikke med formler, men ved bruk av filter. Filter finner du på Data-fanen hvis du har Excel 2007 eller nyere.

 

HTH. Beste hilsen Harald

[ThE_GuN]

Takk for svaret Harald, det fungerer fint men problemet med denne løsningen er at jeg da fortsatt ikke har en fullstendig liste over alle som ikke har svart fra de forskjellige arkene... ønsker å samle alle de som ikke har svart på et og samme ark som jeg kaller 'Oversikt'.

[Harald Staff]

Det er formelmessig veldig fiklete å skrive rett under hverandre noe som i utgangspunktet er helt tilfeldig spredt. Ville en makroløsning vært at interesse? Klikk en knapp så er lista der lissom?

[ThE_GuN]

Hmmm, ja det kunne fungert. Noen tips for hvordan jeg kan gjøre det?

[Harald Staff]

Åpne filen din. Åpne vb-editoren (Alt F11).

Meny insert > module.

Nå dukker en hvit side opp. Lim inn følgende:

 

Sub HvemMangler()

Dim Src As Worksheet, Trg As Worksheet

Dim R As Long, RL As Long, RW As Long

Workbooks.Add (1)

DoEvents

Set Trg = ActiveWorkbook.Sheets(1)

RW = 1

Trg.Cells(RW, 1).Value = "Mangler pr " & Now

Trg.Cells(RW, 1).Font.Bold = True

For Each Src In ThisWorkbook.Worksheets

RL = Src.Cells(Src.Rows.Count, 1).End(xlUp).Row

For R = 2 To RL

	If Src.Cells(R, 6).Value = "" Then

		RW = RW + 1

		Trg.Cells(RW, 1).Value = Src.Cells(R, 1).Value

	End If

Next

Next

End Sub

 

Lukk VB-editoren.

Sett inn en shape i første arket (et rektangel, tekstboks e.l.). Høyreklikk den, velg Tilordne makro, velg makroen HvemMangler, OK. Nå kan du klikke på den.

 

(Makroen scanner alle arkene. Hvis noen ark ikke skal med, må det programmeres inn unntak. Post tilbake med detaljer om arknavn i så fall.)

 

HTH. Beste hilsen Harald

Endret 26. april 2013 av Harald Staff

[ThE_GuN]

Hei, dette fungerte meget bra, den burde ignorere ark 1 (navn "Oversikt")...

 

Endret det da til dette:

 

Sub HvemMangler()
   Dim Src As Worksheet, Trg As Worksheet
   Dim R As Long, RL As Long, RW As Long
   Workbooks.Add (1)
   DoEvents
   Set Trg = ActiveWorkbook.Sheets(1)
   RW = 1
   Trg.Cells(RW, 1).Value = "Mangler pr " & Now
   Trg.Cells(RW, 1).Font.Bold = True
   For Each Src In ThisWorkbook.Worksheets
    If Not Src.Name = "Oversikt" Then
	    RL = Src.Cells(Src.Rows.Count, 1).End(xlUp).Row
	    For R = 2 To RL
		    If Src.Cells(R, 6).Value = "" Then
			    RW = RW + 1
			    Trg.Cells(RW, 1).Value = Src.Cells(R, 1).Value
		    End If
	    Next
    End If
   Next
End Sub

Endret 26. april 2013 av ThE_GuN

[Harald Staff]

Bra jobba!