hulp, bij camping bezetting

[campingpolen]

Hallo,
Wij hebben een kleine camping en met een excel spreadsheet registreren wij de bezetting.
Helaas moeten wij alles bijhouden. Dus ook hoeveel gasten wij ontvangen.
Het aantal is geen probleem, maar we tellen nu alle nationaliteiten handmatig.
helaas ben ik geen excel expert.
nu zoeken wij een formule om dit automatisch te berekend.
wij tellen ieder persoon voor 1 overnachting. bv; een gezin van 4 verblijft 3 nachten, dit zijn dus 12 overnachtingen.
Kolom B geeft nationaliteiten
rij C t/m AG aantal mensen en aantal nachten
hoe kan dit automatische in AL en AM ingevuld worden?
bij voorbaat HEEL veel dank

 

[edmoor]

Plaats niet een plaatje maar je document of een voorbeeld ervan.

 

[oeldere]

en aanvullend op het vorige bericht misschien ook verstandig even te vermelden welke versie van excel je gebruikt.

 

[JeanPaul28]

Ja liefst excel bestand fotos bedriegen en laten geen formules zien, maar ik doe een foto gok terug

 

[JanBG]

Zou inderdaad handig zijn als er een voorbeeld bestand bij zat, maar goed:

In kolom AJ vul je bij AJ3 de volgende formule in:

=AI3/(AANTALLEN.ALS(D3:AG3;">0"))

Die formule kopieer je naar beneden

In kolom AL vul je bij AL3 de volgende formule in:

=SOM.ALS(B:B;AK3;AJ:AJ)

Die formule kopieer je naar beneden

En tenslotte vul je in kolom AM bij AM3 deze formule in:

=SOM.ALS(B:B;AK3;AI:AI)

En ook deze formule kopieer je weer naar beneden.

 

[JanBG]

O ja, en als je dat gedaan hebt en denkt het klopt niet: je hebt in kolom AK de Denen niet meegenomen; er staat CK, moet waarschijnlijk DK zijn

 

[route99]

Het is nu vast te druk op de camping...

 

[campingpolen]

bestand

Hallo,
Alvast mijn dank voor jullie hulp.:thumb:
Sorry dat ik een foto heb gestuurd. Hierbij het bestand.
Ik werk met office 2007 ivm uitwisselingen meerdere pc's.

 

[oeldere]

Het is nu vast te druk op de camping...

Of google translater heeft het druk met het vertalen van Pools naar Nederlands.

 

[campingpolen]

Of google translater heeft het druk met het vertalen van Pools naar Nederlands.

Dat zou niet handig zijn, ons Pools is niet namelijk niet zo geweldig

 

[JanBG]

Werkt als een zonnetje, hoewel die nu nauwelijks schijnt in Boguszyn (volgens Google)

Bekijk bijlage Kopie van Book1-1.xlsx

 

[campingpolen]

GEWELDIG :thumb:
Hiermee zijn we zeer geholpen.
hartelijk dank vanuit een bewolkt maar zeer tevreden BOGUSZYN

 

[oeldere]

met onderstaande code om de bestand te reorganiseren. Daarna een draaitabel voor de analyse.

zie de bijlage.

Sub CONVERTROWSTOCOL_Oeldere_revisted_new()

Dim rsht1 As Long, rsht2 As Long, i As Long, col As Long, wsTest As Worksheet, mr As Worksheet, ms As Worksheet

'check if sheet "output" already exist

Const strSheetName As String = "Output"

Set wsTest = Nothing
On Error Resume Next
Set wsTest = ActiveWorkbook.Worksheets(strSheetName)
On Error GoTo 0
 
If wsTest Is Nothing Then
    Worksheets.Add.Name = strSheetName
End If

'set the data
                 

Set mr = Sheets("sheet1")                                  'this is the name of the source sheet
 
Set ms = Sheets("Output")                                       'this is the name of the destiny sheet

col = 3
'End set the data

    With ms
     .UsedRange.ClearContents
     .Range("A1:E1").Value = Array("Naam", "Land", "Month", "Dag", "Value")
    End With
    
    rsht2 = ms.Range("A" & Rows.Count).End(xlUp).Row
    
    
    With mr
          rsht1 = .Range("A" & .Rows.Count).End(xlUp).Row
          For i = 3 To rsht1
                Do While .Cells(2, col).Value <> "" 'And .Cells(I, col).Value <> ""
                rsht2 = rsht2 + 1
               
                ms.Range("A" & rsht2).Value = .Range("A" & i).Value
                ms.Range("B" & rsht2).Value = .Range("B" & i).Value
                ms.Range("C" & rsht2).Value = .Cells(2, "C").Value
                
                ms.Range("D" & rsht2).Value = .Cells(2, col).Value
                
                ms.Range("E" & rsht2).Value = .Cells(i, col).Value
         
                col = col + 1
            Loop
            col = 3
        Next
    End With
    
  With ms
  
    .Range("E2:E" & .Rows.Count).SpecialCells(4).EntireRow.Delete
    
    .Columns("A:Z").EntireColumn.AutoFit
    
    End With
    
End Sub

 

[campingpolen]

met onderstaande code om de bestand te reorganiseren. Daarna een draaitabel voor de analyse.

zie de bijlage.

Sub CONVERTROWSTOCOL_Oeldere_revisted_new()

Dim rsht1 As Long, rsht2 As Long, i As Long, col As Long, wsTest As Worksheet, mr As Worksheet, ms As Worksheet

'check if sheet "output" already exist

Const strSheetName As String = "Output"

Set wsTest = Nothing
On Error Resume Next
Set wsTest = ActiveWorkbook.Worksheets(strSheetName)
On Error GoTo 0
 
If wsTest Is Nothing Then
    Worksheets.Add.Name = strSheetName
End If

'set the data
                 

Set mr = Sheets("sheet1")                                  'this is the name of the source sheet
 
Set ms = Sheets("Output")                                       'this is the name of the destiny sheet

col = 3
'End set the data

    With ms
     .UsedRange.ClearContents
     .Range("A1:E1").Value = Array("Naam", "Land", "Month", "Dag", "Value")
    End With
    
    rsht2 = ms.Range("A" & Rows.Count).End(xlUp).Row
    
    
    With mr
          rsht1 = .Range("A" & .Rows.Count).End(xlUp).Row
          For i = 3 To rsht1
                Do While .Cells(2, col).Value <> "" 'And .Cells(I, col).Value <> ""
                rsht2 = rsht2 + 1
               
                ms.Range("A" & rsht2).Value = .Range("A" & i).Value
                ms.Range("B" & rsht2).Value = .Range("B" & i).Value
                ms.Range("C" & rsht2).Value = .Cells(2, "C").Value
                
                ms.Range("D" & rsht2).Value = .Cells(2, col).Value
                
                ms.Range("E" & rsht2).Value = .Cells(i, col).Value
         
                col = col + 1
            Loop
            col = 3
        Next
    End With
    
  With ms
  
    .Range("E2:E" & .Rows.Count).SpecialCells(4).EntireRow.Delete
    
    .Columns("A:Z").EntireColumn.AutoFit
    
    End With
    
End Sub

WOW :shocked:..mooi gemaakt
maar uhm,, zover wil ik toch niet gaan. heel erg bedankt voor je inzet :thumb:

 

[oeldere]

graag gedaan.

 

[JeanPaul28]

Met de formule somproduct

 

[campingpolen]

Met de formule somproduct

Beste JeanPaul,
Als er wijzigingen in een cel worden gedaan gaat het niet goed. Jammer.

 

[JeanPaul28]

en waar gaat het fout

 

[campingpolen]

en waar gaat het fout

zodra ik bv NL toevoeg 2 gasten telt hij er maar 1 gast erbij ipv 2. aantal nachten werkt wel goed.
het aantal NL gasten zou 11 moeten zijn ipv 17
3+1+2+2+3Bekijk bijlage Kopie(jp) van Book1.xlsxBekijk bijlage Kopie(jp) van Book1.xlsx

 

[JanBG]

Hoi,

Ik zie niet direct wat er fout gaat in de formule van JeanPaul, maar misschien heb je hier wat aan.
Ik heb je bestand hier en daar een beetje aangepast, met bij voorbeeld een voorkeuzelijst voor nationaliteit en in dit bestand gaat het toevoegen van nieuwe gasten wel goed. :d

Bekijk bijlage Kopie van Book1-1.xlsx