Locatie vullen met waarden met VBA in excel

[JeanPaul28]

De functies aangepast, wat in Tabblad planningOverzicht gebeurd daar heb ik geen overzicht op, voor mij te ingewikkeld.

 

[lvisser]

dat zal wel meevallen ... linkerkant klikken krijg je van een inkomde rit op basis van ritnummer te zien wat er in die rit zit, boven klikken zie je de uitgaande ritten met wat daar in zit, cel in het midden klikken zie je de combinatie.
blijkbaar gooit de code wat daar gebruikt wordt roet in het eten bij jouw code. op zich raar, want ik zie niets aan code verder op het blad staan.

optie kan dan zijn om de gevulde locaties na klikken te kopieren en plakken als waarden. of is er toch iets anders ?

De functies aangepast, wat in Tabblad planningOverzicht gebeurd daar heb ik geen overzicht op, voor mij te ingewikkeld.

 

[JeanPaul28]

Kom er niet wijzer uit

 

[lvisser]

Achter planningOverzicht zit code die regelt dat er bij klikken wat gebeurt. :

'Waarde van cellen weergeven
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[CZ3] = ""
If Not Intersect(Target, Range("I14:CV53")) Is Nothing Then
[CZ3] = Cells(Target.Row, 1).Value & " - " & Cells(8, Target.Column).Value
[DA3].Value = 1


End If


'Uitgaande rit weergeven
If Not Intersect(Target, Range("I4:CV13")) Is Nothing Then
[CZ3] = Cells(7, Target.Column).Value
[DA3].Value = 2




End If


'Inkomende rit weergeven
If Not Intersect(Target, Range("B9:G53")) Is Nothing Then
[CZ3] = Cells(Target.Row, 1).Value
[DA3].Value = 3
End If




End Sub

Kom er niet wijzer uit

 

[JeanPaul28]

Ik denk nu wat je probleem is, de functie macro word niet herberekend wanneer je het tabblad Cellen_Vers selecteert
Hier de oplossing, Achter je tabblad Cellen_Vers

Private Sub Worksheet_Activate()
Application.Calculate
End Sub

 

[lvisser]

Werk deels. de data blijft nu wel op het blad Cellen_vers, maar klik bijvoorbeeld in Planningoverzicht C22, dan zou in kolom DK data moeten komen. die staat er wel als ik Planningoverzicht open, maar zodra ik klik is die kolom leeg..

Ik denk nu wat je probleem is, de functie macro word niet herberekend wanneer je het tabblad Cellen_Vers selecteerd
Hier de oplossing, Achter je tabblad Cellen_Vers

Private Sub Worksheet_Activate()
Application.Calculate
End Sub

 

[snb]

Ontbreekt de t op jouw toetsenbord ? wordt, selecteert

 

[JeanPaul28]

Kan moeilijk volgen, zal hier moeten passen.

 

[lvisser]

Jammer ...

je zou verwachten dat de data "gewoon" blijft staan..
ik ga maar even aan de gang met Kopieren en Plakken van die waarden. om te verversen moet toch de knop gebruikt worden.

Kan moeilijk volgen, zal hier moeten passen.

 

[lvisser]

ik probeer met kopie en plakken, maar die kan niet achter een functie ?

Kan moeilijk volgen, zal hier moeten passen.

 

[lvisser]

Omdat helaas de waarden niet blijven staan maar verdwijnen als ik op een ander blad iets doe, had ik bedacht om de resultaten van onderstaande te kopieren en te plakken op een ander blad als waarden.
echter, ik krijg dat niet tussen de sub en de endsub, en niet in of na de functie.
ik heb al geprobeerd om via een andere macro dit te doen, maar dat lukt niet.
nu kan ik natuurlijk nog een knop maken om te kopieren, maar is er niet een oplossing om dit met dezelfde knop te kunnen doen ??

Sub Dock1()
Dim Rng As Range
Dim WorkRng As Range
Dim Mlist As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
Dim Arr() As Variant
ReDim Arr(0 To 0)
Range("DR6U18").ClearContents


For Each cl In Range("DR24R" & Cells(Rows.Count, "DR").End(xlUp).Row)
r = cl.Offset(, 1).Value
For i = 1 To cl.Offset(, 1).Value
Arr(UBound(Arr)) = cl.Value
ReDim Preserve Arr(UBound(Arr) + 1)
Next
Next
ReDim Preserve Arr(LBound(Arr) To UBound(Arr) - 1) 'Deallocate the last, unused element


q = 0
For Each cl In Range("DR6U18")
x = cl.Address
Range(x) = Arr(q)
q = q + 1
Next


End Sub




Function Locator(Soort, Aantal)


x = Aantal.Row - 1
Set cc = Range("DS23S" & x)
b = Application.WorksheetFunction.Sum(cc)
cltel = 0
Application.Volatile
Dim Loc As Variant


For Each cl In Range("DR6U18")
cltel = cltel + 1
If cltel > b Then
If cl = Soort Then
teller = teller + 1
rr = Cells(cl.Row, "DV").Value
cc = Cells(5, cl.Column).Value
Loc = "1 - " & rr & "-" & cc & Loc
If Aantal > teller Then Loc = ";" & Loc
If teller = Aantal Then GoTo fini
End If
End If
Next
fini:
Locator = Loc


End Function

 

[snb]

Er wordt in jouw code zo te zien meer gelachen dan in de mijne...