Opgelost Waarde opvragen vanuit ander tabblad

[Fredemel]

Geachte leden,

Me weer een ongeluk gezocht op internet (en niet gevonden) aangaande het volgende:
Ik wil een variabel "vullen" met een waarde uit een ander tabblad. Dit is m'n formule VANUIT "Blad2":
a = ActiveWorkbook.Worksheets("Blad1").Application.Cells(ActiveCell.Row, "K").Value
Dus checken met: msgbox a Helaas.... lege msgbox
Zit ik IN Blad1 werkt het wel.
Let wel, de actieve regel in Blad1 in kolom K is de waarde die ik wens, maar dan vanuit Blad2.

Wat doe ik fout of mis ik. (Zelf denk ik dat "activecell.Row" meteen verwijst naar het "TabBlad" waar ik "ben"....
Alleen .... Ik vind de oplossing jammer genoeg niet zelf)

Graag jullie hulp

 

[Warme bakkertje]

Met Blad2 als actief werkblad.

a = Sheets("Blad1").Cells(ActiveCell.Row, "K").Value

 

[edmoor]

Maak er eens dit van:

Sheets("Blad1").Cells(ActiveCell.Row, "K").Value

Of plaats een voorbeeld document.

 

[Fredemel]

Helaas,.... werkt (bij mij...?) niet
bestand bijgevoegd.... Met macro
Vanuit Blad 2 is var a "leeg"
Vanuit Blad 1 is var a gevuld, maar komt niet in Blad 2 - kolom "F"
Graag hulp
Heb wel office 365.....

 

[edmoor]

Wat al eerder is aangegeven, haal dat .Application midden in die VBA regel weg.
Die Dim a As Variant is ook overbodig.

 

[AHulpje]

Probeer het eens zo:

Sub van_2_naar_1()
    With Sheets("Blad1")
        .Activate
        rij = ActiveCell.Row
        MsgBox "Actieve rij op Blad1: " & rij
    End With
    Sheets("Blad2").Activate
    a = Sheets("Blad1").Cells(rij, "K").Value
    MsgBox a
   Cells(ActiveCell.Row, "F").Value = a
End Sub

 

[emields]

Is wel een zeer rare constructie om gegevens over te zetten. Hoe dikwijls moet je kijken of op beide bladen de goede rij geselecteerd is?

 

[Fredemel]

Beste emields,
bedankt voor een oplossing.
Het doc is een korte versie van uitgebreid bestand met allerlei macro's.
Jouw oplossing is correct, maar ik wil NIET dat de sheets eerst "activated" moeten worden.
Zoals ik het nu begrijp kan dat niet anders.

Men kan dus NIET ZONDER naar een tabblad te "gaan" data kopiëren en plakken vanuit een (ander) active sheet.....
Of weet iemand toch een oplossing.........?

 

[AHulpje]

Wat is het verband tussen de monitoren op Blad1 en Blad2?

 

[edmoor]

Al blijft het een rare constructie, doe het eens zo:

 

[emields]

Eventueel kan je het zo doen, maar het blijft mij een raadsel waarom je iets wil ophalen waarvoor je eerst in het op te halen blad de juiste rij moet selecteren.

 

[AHulpje]

Of laat de gebruiker een rij of cel selecteren:

 

[HSV]

Je kan het ook doormiddel van een Inputbotbox ingeven.

 

[AHulpje]

@HSV
Echt waar?

 

[HSV]

Denk van wel omdat ik die optie mis in jullie strijd.

 

[AHulpje]

Knipoog niet opgemerkt? Zie bijlage bij #12

 

[HSV]

Ik ga niet alle bestanden openen; plaats gewoon de code, meer dan genoeg.

 

[Fredemel]

Allen bedankt voor de aangedragen oplossingen en edmoor vooral.
Want die van edmoor ga ik gebruiken.

@AHulpje:
Blad1 is een specifieke type monitor
Blad2 is de voorraad, waarbij de data van blad1 wordt gebruikt, met extra (inputbox)-kolommen (bv: Box)

@HSV:
Het is niet de bedoeling dat alles ingetyped moet gaan worden.
Nu is het copy - paste en wat extra kolommen voor de voorraad informatie (zoals serienummer en zo)
Maar die kolommen heb ik weggelaten in m'n voorbeeld.

maar toch... allen bedankt.