Als twee cellen bepaalde tekst bevatten, dan bestand x openen

[wouter2190]

Beste Forum leden,

Ik ben bezig in excel om een bestand te maken met archief stukken.

Nu wil ik het volgende dmv een macro genereren (Voorbeeld):


In excel heb ik nu een knop staan "Zoek archief stuk" als ik hier op klik moet excel een bepaald word document openen.
dus Als in cel A1 het woordje: hallo staat, en in cel a2 het woordje: doei staat, dan moet moet excel het word document uit de volgende (voorbeeld) locatie openen: c:\mijndocumenten\hallodoei.docx

Ook wil ik, dat als in 1 van de 2 cellen (A1/A2) geen keus is gemaakt, dat er een foutmelding komt (lees msgbox).

kan iemand mij een klein stukje op weg helpen?

Bedankt!

 

[eyeye]

Je zou het even op een windows pc moeten controleren (gaat helaas hier niet op een mac), maar dit zou het ongeveer moeten zijn.
In ieder geval de controle of de cellen gevuld zijn en het combineren van de inhoud tot een zoekopdracht.

Sub eyeye()

Dim doc1 As String
Dim doc2 As String
Dim document As String

Set wordapp = CreateObject("word.Application")

doc1 = ThisWorkbook.Sheets("Blad1").Range("A1").Value
doc2 = ThisWorkbook.Sheets("Blad1").Range("A2").Value
document = doc1 & doc2



If ThisWorkbook.Sheets("Blad1").Range("A1") = "" Then
MsgBox ("Cel A1 is leeg")
ElseIf ThisWorkbook.Sheets("Blad1").Range("A2") = "" Then
MsgBox ("Cel A2 is leeg")
Else: wordapp.documents.Open "c:\mijndocumenten\" & document

wordapp.Visible = True

End If
End Sub

 

[wouter2190]

Bedankt voor je antwoord,
inmiddels zelf ook een stukje code kunnen maken die werkt, echter zie ik nog een aantal functie(s) bij jou die zeer handig zijn. Bedankt hiervoor.

Mijn stukje code:

If Range("C2") = "Geweldsdelicten" And Range("C3") = "Mishandeling" Then
Set wordapp = CreateObject("word.Application")

wordapp.documents.Open "P:\Mijn Documenten\geweldsdelictenmishandeling.doc"

wordapp.Visible = True

Else: MsgBox "Er zijn geen documenten gevonden"
End If

End Sub