vba code

[Bertus78]

Wie kan mij even helpen.


Ik ben opzoek naar een vba code voor excel.
Ik vul een zoekopdracht in een sheet (in dit geval een nummer)
In een andere sheet staan onder A nummers, daarachter staat tekst in diverse kolommen t/m F

Ik wil dat hij mijn ingevoerde nummer (sheet 1) in een andere sheet 2 opzoekt in kolom A
Zodra die is gevonden bv. in rij 12, dan moet hij in kolom F een woord veranderen in DEFECT.

msexcel 2010

Ik ben nog een beginner in VBA code's

 

[HSV]

Zonder het bestand te hebben gezien, zou het zoiets kunnen worden.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
 If Not IsError(Application.Match(Target, Sheets(2).Columns(1), 0)) Then Target.Offset(, 6) = "DEFECT"
End If
End Sub

Plaatsen in bladmodule sheets(1).

 

[Bertus78]

Bekijk bijlage Automaten 1.xlsm

Als ik het goed heb gedaan staat het document erbij.
Hopelijk wordt het duidelijk zo.

In de sheet "koffieautomaten" wil ik dat hij zoekt in Kolom A wat ik in de eerste sheet heb opgegeven bij automaat nummer.
Daarna wil ik dat de storing daarachter vermeld wordt als "defect"

 

[HSV]

In bladmodule; Let op: "storring melden".

Als je geen samengevoegde cellen had zou ik het anders schrijven.
Dus...., vermijd samengevoegde cellen anders kom je vroeg of laat toch in de problemen met Vba.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
 Application.EnableEvents = False
  Range("B11") = ""
 If Not IsError(Application.Match(Target, Sheets("koffieautomaten").Columns(1), 0)) Then Target.Offset(6) = "DEFECT"
 Application.EnableEvents = True
End If
End Sub

 

[Bertus78]

Nu krijg ik steeds een foutmelding "sub end verwacht"
er schijnt iets boven te moeten.

 

[Bertus78]

Ik heb storing aangepast, bedankt voor de tip

 

[HSV]

Hier geen foutmeldingen hoor.

 

[Bertus78]

Inderdaad, daar werkt hij.

Erg bedankt voor het mee denken.

Echter wil ik hem onder de knop "1e lijn" hebben, als ik kopieer en plak krijg ik die foutmelding.
tevens komt het woord "defect" in de zelfde sheet, maar hij moet naar sheet "koffieautomaten"

Gr. Bertus

 

[HSV]

In welk kolom moet "defect" komen; Kolom F is al bezet.

 

[Bertus78]

Ja in kolom F staat werkt, die moet veranderd worden in defect.

 

[HSV]

Volgens je bestand staat daar 'opdrachtgever' en in kolom G 'werkt'.

 

[Bertus78]

Oeps, je heb gelijk.

Mijn fout, moet kolom G zijn

 

[HSV]

Hang onderstaande code aan de knop.

Sub defect()
Dim gev
With Sheets("koffieautomaten")
 gev = Application.Match(.Range("B5"), .Columns(1), 0)
  If Not IsError(gev) Then .Cells(gev, 7) = "Defect"
 End With
End Sub

 

[Bertus78]

ik ga lastig worden.
Krijg weer een fout melding, ik wil laten zien wat ik doe, maar hoe krijg ik hier de code in.

 

[Bertus78]

'selecteer de database
    Sheets("Doorbellen").Select
    Range("B13").Select
    ActiveCell.Offset(1, 0).Select


Sub defect()
Dim gev
With Sheets("koffieautomaten")
 gev = Application.Match(.Range("B5"), .Columns(1), 0)
  If Not IsError(gev) Then .Cells(gev, 7) = "Defect"
 End With
End Sub


MsgBox ("Storing doorbellen !!!")

 

[Bertus78]

gelukt........

Je ziet dat ik erboven al opdrachten in heb staan.
Ik blak uw tekst er tussen maar dan krijg ik dat er een melding "end sub"

 

[HSV]

Verwijder regel 7 en 13.

 

[Bertus78]

ja hij gaat nu weer door.

maar ......
:shocked:

Het zal wel aan mij liggen maar werkt niet.

Maar ik mis ook sheet "storing melden"
Daar moet hij zijn informatie vandaan hebben.
Op sheet "koffieautomaat" veranderd niets

Sorry hoor..... dat ik je hiermee lastig val

 

[HSV]

Dat was mijn fout door alle veranderingen.

Dim gev
With Sheets("koffieautomaten")
 gev = Application.Match([COLOR=#ff0000]Sheets("storing melden")[/COLOR].Range("B5"), .Columns(1), 0)
  If Not IsError(gev) Then .Cells(gev, 7) = "Defect"
 End With

 

[Bertus78]

YES YES YES,


HET WERKT,
ik ben hier al de gehele dag mee bezig.

Echt bedankt. SUPER
Ben er erg blij mee.