Project Palletregistratie

[Mcstupid]

Goedendag allen!

Bekijk bijlage Forum_Europalletregistratie.xlsm

Momenteel ben ik met een 'projectje' bezig om de uitgaande pallets te registreren waarvoor een CMR vereist is.
Ik heb het een en ander voor elkaar kunnen krijgen met behulp van dit forum maar stuit op een aantal uitdagingen.

Uitdaging 1:
Is om vagere redenen verholpen. Voorheen kreeg ik een melding maar die is spontaan verdwenen!! (orgineel bericht)

Uitdaging 2:
In de module TransporteurToevoegenVB heb ik de regel:

.Range("L" & NieuweRij).FormulaLocal = "=" & sTransporteur & "!D6"

Maar omdat ie automatisch een ' voor en achter de sTransporteur zet, kan excel de werkblad niet vinden.

Met vriendelijke groet,

Roelof

BTW: Nog steeds heel veel schik met de Palletkaart en de Opbrengsten die ik met jullie hulp in elkaar heb gezet!!

En voor de logistieke mensen onder ons: De blad CMR kan worden gebruikt om CMRs te printen. Wel een klein beetje uitlijnen e.d.

 

[tkint]

Beste,

Ik vind 2 procedures om transporteur toe te voegen.
Je kan alvast in deze proedure de foutmelding onderdrukken (zie rode tekst)

Sub TransporteurToevoegenVB()
 
    sTransporteur = InputBox("Naam Transporteur?")
'wanneer wordt geannuleerd
    If sTransporteur = "" Then Exit Sub
    
    splaats = InputBox("Waar is deze gevestigd?")
'wanneer wordt geannuleerd
    If splaats = "" Then Exit Sub
    
    sland = InputBox("In welk land (Landcode invoeren!!)?")
'wanneer wordt geannuleerd
    If sland = "" Then Exit Sub

  
   NieuweRij = Sheets("Overzicht.").Range("G9").End(xlDown).Row + 1
    
    With Sheets("Overzicht.")
        .Range("G" & NieuweRij).Value = sTransporteur
        .Range("H" & NieuweRij).Value = splaats + ", " + sland
    
    Sheets("template").Visible = True
   [COLOR="#FF0000"] Application.DisplayAlerts = False[/COLOR]
    Sheets("template").Copy Before:=Sheets(4)
    'Sheets("template (2)").Select
    Sheets("template (2)").Name = sTransporteur
    Sheets("template").Visible = False
    Sheets("blad1").Select
    [COLOR="#FF0000"]Application.DisplayAlerts = True[/COLOR]
    End With
End Sub

 

[Mcstupid]

Hallo tkint!

Bedankt voor je reactie maar om een nog onduidelijke redenen is de melding verdwenen..
Ik ben me er niet van bewust dat ik daar iets veranderd heb

En inderdaad:
1e procedure is op het overzicht en de
2e op het VoorBlad (blad1).

Thx anyway!!

 

[Mcstupid]

Ik heb het al opgelost!
Ik kwam erachter dat ik een cijfer in de naam gebruikte waardoor ik die aanhalingstekens kreeg.
Ook heb ik de regel (waar de opdracht in staat) naar beneden gezet.
Nu werkt ie prima!

alsnog bedankt voor het meedenken!!