Cellen in kolom laten wijzigen op basis van 1 cel uit andere sheet (niet via if-then)

[Roncancio]

Dim wBook As Workbook
    On Error Resume Next
    Set wBook = Workbooks("CENTRAL.XLSX")
    If wBook Is Nothing Then CentFile = "C:\Temp\CENTRAL.XLSX"
    If Dir(CentFile) <> "" Then Workbooks.Open CentFile
    With Workbooks("CENTRAL.XLSX").Worksheets(1)
        .Range("A1").AutoFilter Field:=3, Criteria1:=ThisWorkbook.Worksheets(1).Range("C2").Value
        .Range("D2:D" & .UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Value = 2
        .Range("E2:E" & .UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Value = Date
    End With
    Workbooks("CENTRAL.XLSX").Close SaveChanges:=True

Met vriendelijke groet,


Roncancio

 

[jannemanvermeul]

Knap gedaan Roncancio, werkt perfect.
Eén vraag nog die je mij misschien ook zo los uit de pols kan beantwoorden.
Stel dat 2 gebruikers op identiek hetzelfde moment de CENTRAL willen beschrijven, kan je een bericht laten verschijnen dat persoon X de sheet ingebruik heeft en dat de dus de registratie niet kan doorgaan, dat er moet worden gewacht.

 

[Roncancio]

Heel simpel.
Het bestand niet delen!

Als persoon A dan het bestand opent en vervolgens opent persoon B het bestand, dan verschijnt automatisch een bericht dat Persoon A het bestand geopend heeft.
Als persoon B vervolgens kiest voor Waarschuwen verschijnt bij persoon B automatisch een bericht zodra persoon A het bestand heeft afgesloten.

Met vriendelijke groet,


Roncancio

 

[jannemanvermeul]

Dat klopt ja, maar ik vrees dat dan vaak "alleen lezen" gaat genomen worden - waarna wel kan worden verder gewerkt; maar de data nadien niet correct is verwerkt in CENTRAL.
Is er een mogelijkheid om zelfs die melding niet te laten verschijnen, zodat enkel kan verder gegaan worden als CENTRAL beschikbaar is ?

 

[Roncancio]

Dim wBook As Workbook
    On Error Resume Next
    Set wBook = Workbooks.Open("\\Spnlfap92615\uds00001\M01I196\Home\My Documents\Central.xlsx")
    If Not wBook Is Nothing Then
        If wBook.ReadOnly Then
            Workbooks("CENTRAL.XLSX").Close
            MsgBox "Central kan niet geopend worden." & vbNewLine & "Probeer het later nog eens.",vbExclamation,"Central kan niet geopend worden. 
        Else
            With Workbooks("CENTRAL.XLSX").Worksheets(1)
                .Range("A1").AutoFilter Field:=3, Criteria1:=ThisWorkbook.Worksheets(1).Range("C2").Value
                .Range("D2:D" & .UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Value = 2
                .Range("E2:E" & .UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Value = Date
                Workbooks("CENTRAL.XLSX").Close SaveChanges:=True
            End With
        End If
    End If

Met vriendelijke groet,


Roncancio

 

[jannemanvermeul]

OK Roncancio this is it.
Bedankt en misschien/hopelijk tot een volgende