Formule werkt niet goed

[Peterus52]

Hallo,

Ik heb onderstaande formule gemaakt, maar deze werkt alleen op de eerste voorwaarde en niet op de tweede, wat doe ik fout?

=ALS('Blad1'!K:K>=0;'Blad3'!C:C;ALS('Blad2'!K:K>=0;'Blad4'!C:C;""))

Groetjes,
Piet

 

[Niels28]

Ligt eraan wat je wilt bereiken.
plaats een voorbeeld bestandje

Niels

 

[popipipo]

Blad1'!K:K>=0

De syntax van de formule klopt niet.
Je hebt het hier over een hele range dit mag alleen 1 bepaalde cel zijn

 

[Peterus52]

Hoi,

In de bijlage een voorbeeld bestandje, ik wil hiermee dus bewerkstelligen dat als er in in blad 2 of blad 3 in de kolom een tijd staat ingevuld het ordernummer van kolom B in blad 3 kolom A komt testaan. Hierdoor krijg ik overzichtelijk het totaal verbruikte uren op een ordernummer van 2 afdelingen. Ik wil dit zo omdat ook het wel eens voorkomt dat bij een ordernummer maar een afdeling uren maakt.

Hopelijk maak ik het zo wat duidelijker.

Groetjes,
Piet

 

[Niels28]

Bedoel je dit?

=SOM.ALS(Blad2!$B$2:$B$3;A2;Blad2!$K$2:$K$3)+SOM.ALS(Blad3!$B$2:$B$3;A2;Blad3!$K$2:$K$3)

Niels

 

[Peterus52]

Niels,

Is niet helemaal wat ik bedoel, in blad 2+3 worden straks voordurend orders in geplaatst met de tijd die men er aan heeft besteed. In het ene blad van productie in het andere van logistiek. Nu wil ik in blad 1 dat er in kolom A de ordernummers van blad 2+3 worden weergegeven, de formules in kolommen B+C halen dan uit deze tabbladen de gebruikte uren. Hierdoor kan ik dus in een overzicht zien hoeveel uren productie en logistiek op een order zijn gebruikt. Ik hoop dat ik het zo een beetje duidelijk heb uitgelegd.

 

[Cobbe]

Zou dit uw werk verlichten

 

[Peterus52]

Cobbe,

Bedankt voor je reactie dit is inderdaad wat ik bedoel, alleen de vraag of het ook mogelijk is dat wanneer 1 ordernummer bij beide afdelingen voorkomt deze maar een keer naar de lijst wordt gekopieerd en de uren naast elkaar komen in de kolommem B+C.

Ik hoop dat ik niet te lastig ben.

Groetjes,
Piet

 

[Cobbe]

Die lastigheid valt nog wel mee.

Heb gedaan wat ik dacht dat gevraagd is.

 

[Peterus52]

Cobbe,

Dit is inderdaad wat ik bedoelde en het werkt ook, alleen krijg ik onderstaande foutmelding:

End With
ActiveSheet.Range("$A$1:$A$10").RemoveDuplicates Columns:=1, Header:=xlYes (Geel gearceerd)Application.ScreenUpdating = True
kaderen
End Sub

 

[Cobbe]

Sorry kleine vergetelheid.

Code aangepast zodat ie werkt tot rij 500.

 

[Niels28]

@Cobbe

Remove dupplicates werkt niet in 2003 en ik denk dat TS die versie heeft.
Het kaderen loopt bij mij in 2007 vast

Sub test()
Application.ScreenUpdating = False

With Sheets("Blad2")
 For Each cl In .Range("b2:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
If InStr(c01, cl.Value) = 0 Then c01 = c01 & "|" & cl.Value
Next
End With

With Sheets("Blad3")
 For Each cl In .Range("b2:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
If InStr(c01, cl.Value) = 0 Then c01 = c01 & "|" & cl.Value
Next
End With

Sheets("blad1").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(Split(c01, "|")), 1).Value = WorksheetFunction.Transpose(Split(Mid(c01, 2), "|"))
Application.ScreenUpdating = True

End Sub

Niels

 

[Peterus52]

Cobbe,

IK krijg nog steeds foutmelding en het wordt dubbel geplaatst zie onderstaande:

Ordernummer Productie Logistiek
101530 6:25 4:10
101540 0:45 10:04
101560 5:00 6:25
101580 5:00 0:45
101560 5:00 6:25
101580 5:00 0:45
101530 6:25 4:10
101540 0:45 10:04

Sub cobbe()
Application.ScreenUpdating = False
lijn = 2
With Sheets("Blad2")
For prod = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
If .Cells(prod, 2) <> 0 Then
Sheets("Blad1").Cells(lijn, "A") = .Cells(prod, 2)
lijn = lijn + 1
End If
Next
End With
With Sheets("Blad3")
For prod = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
If .Cells(prod, 2) <> 0 Then
Sheets("Blad1").Cells(lijn, "A") = .Cells(prod, 2)
lijn = lijn + 1
End If
Next
End With
HIER KOMT FOUTMELDING ---- ActiveSheet.Range("$A$1:$A$500").RemoveDuplicates Columns:=1, Header:=xlYes
Application.ScreenUpdating = True
End Sub

 

[Niels28]

post #12

Niels

 

[Cobbe]

Heb het proberen te omzeilen voor xl2003.