Meerdere gegeven importeren

[gerrit098]

Ik heb even het documentje bijgevoegd om het te verduidelijken.

ik in rood gemarkeerde gedeelte kan je in de eerste kolom vanaf b29 extra dingen selecteren.

graag wil ik dat hij het standaard aantal en het bedrag per stuk daar mee automatisch ophaald uit het gegevens blad.
Echter lukt mij dit niet. ik het het geprobeerd met somproduct helaas wil dit niet met woorden.....

weet iemand hoe ik dit anders kan oplossen...

2de vraag:

weet iemand of je een macro kan maken die het bestand "opslaan als" als PDF met als bestands naam "vak" E9 + F18..

alvast bedankt.

gerrit

Bekijk bijlage verhuur.xlsx

 

[gerrit098]

Het op halen van de gegevens is nu gelukt alleen nu komen er irritante ###### als er niets is ingevuld iemand een idee??

 

[wieter]

Gerrit,
Ik heb je bestand een beetje aangepast.
Je validatie was niet juist
Die ######## is weg
Opslaan als PDF met een knop.
Je moet dan wel in de code achter blad 1, het pad aanpassen.

Nu staat in de code: Filename: = "C:Users\Louis\Documents\" enz....
Dit moet je aanpassen aan uw situatie

Bekijk bijlage 175062

 

[gerrit098]

Hartelijk dank!

nog 1 vraag (op dit moment )

is er ook een mogelijkheid dat als het bestand al bestaat er een melding komt of dat hij er dan naam 25 1 2012 1 van maakt ??

 

[wieter]

Zo iets?


Bekijk bijlage 175072

 

[wieter]

Fout in code (nieuwe bijlage)

Bekijk bijlage 175076

 

[gerrit098]

tjonge jonge wat ben jij goed zeg!

Kan je mijn ook nog vertellen hoe de naam van het het appartement er bij in krijgt I16 zeg maar

Private Sub CommandButton1_Click()
datum = Format(Range("F18"), "dd mm yyyy")
Naam = [E9].Value & " - " & datum
 If Dir("C:\verhuur\" & Naam & ".pdf") <> "" Then
        MsgBox "Bestand bestaat al."
        Cancel = True
    Exit Sub
    End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\verhuur\" & Naam & ".pdf"
End Sub

heb al zitten knoeien maar ik snap er echt geen pannenkoek van!
dir naam veranderen is dan weer wel gelukt!

 

[gerrit098]

Nu we toch bezig zijn...

kunnen we ook alleen bv A1:K40 laten exporteren naar de pdf file.
en de directory op geven in bv N5...

Of word ik nu te lastig...

 

[wieter]

Ik ben helemaal niet zo goed in VBA als jij laat uitschijnen.
Voeg het rode gedeelte toe aan de code

Private Sub CommandButton1_Click()
datum = Format(Range("F18"), "dd mm yyyy")
Naam = [E9].Value & " - " & [COLOR="#FF0000"][I16].Value &[/COLOR] " - "& datum
 If Dir("C:\verhuur\" & Naam & ".pdf") <> "" Then
        MsgBox "Bestand bestaat al."
        Cancel = True
    Exit Sub
    End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\verhuur\" & Naam & ".pdf"
End Sub

 

[wieter]

Om alleen A1:K40 op te slaan, zie rode toevoeging

Private Sub CommandButton1_Click()
datum = Format(Range("F18"), "dd mm yyyy")
Naam = [E9].Value & " - " & [I16].Value & " - "& datum
 If Dir("C:\verhuur\" & Naam & ".pdf") <> "" Then
        MsgBox "Bestand bestaat al."
        Cancel = True
    Exit Sub
    End If

ActiveSheet[COLOR="#FF0000"].Range("A1:K40")[/COLOR].ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\verhuur\" & Naam & ".pdf"
End Sub

 

[wieter]

Het pad opgeven in N5 is ook mogelijk (denk ik).
Maar dat zal voor morgen zijn, ik ben op weg naar de 70 en het zandmannetje is daar.

 

[wieter]

Je laatste vraag bleef maar door mijn hoofd spoken (ik zal het mij morgen bekopen)

In cel N5 kan je nu uw bestandslocatie invullen

Bekijk bijlage 175098

 

[gerrit098]

Hartelijk dank....

html en css kan ik me aardig mee redden maar hier snap ik helaas helemaal niks van..
nogmaals bedankt

 

[wieter]

De status van je vraag staat nog niet op opgelost
dus heb ik nog wat wijzigingen en voorstellen geformuleerd in het bestand.
Je laat maar weten wat je niet opgelost krijgt

Bekijk bijlage 175132

 

[gerrit098]

Had ik al gezegt dat u de beste bent!
Hartelijk dank voor de uitleg erbij dit helpt mij enorm om verder te komen

Het printen heb ik er zelf bij in gebakken als u daar nog op of aanmerken over heeft hoor ik het graag.

wel ben ik nog benieuwd naar het mail-knop verhaal...

Dat van die euro tekens was ik al achter gekomen... :thumb: soms denk ik gewoon te moeilijk

 

[wieter]

De printcode die je gebruikt begrijp ik niet (zal wel werken, maar ik begrijp de werking niet)
Ik zou kiezen voor de onderstaande code.

Private Sub Commandbutton2_Click()
ActiveSheet.Range("A1:K40").PrintOut 
End Sub

Indien je het mailadres van een klant kent, zet je het ergens in je formulier
bv in de cel onder postcode en plaats
Je kan dan via een knop het formulier naar de klant mailen i.p.v. per brief te versturen.
Indien je dit wens, moet ik wel even de code zoeken(kan even duren)

 

[gerrit098]

laat maar, was eigenlijk enkel benieuwd. gezien het feit dat het verstuurd word van af een online mail account denk ik niet dat het gebruikt gaat worden.

in ieder geval nogmaals erg bedankt.

met vriendelijke groet,
gerrit

 

[wieter]

Mailen van de verhuurnota.
Ik heb een code van Ron de Bruin gebruikt (werkt altijd perfect)
In cel E12 zet je een mailadres en druk op de knop mailen

Bekijk bijlage 175164

 

[gerrit098]

top hiermee is alles opgelost!

 

[gerrit098]

als ik helemaal klaar ben zal ik het document hier nog ff posten