Új hozzászólás Aktív témák

• #29024 bsh addikt kispéé #29021

  Új Válasz 2015-10-13 17:05:19 #29024

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bsh

  addikt

  válasz kispéé #29021 üzenetére

  a ThisWorkbook-ba másoltad be a kódot? akkor elvileg automatikusan futnia kell, amint megváltozik a kijelölés.
  tehát ha a Munka1 nevű sheeten az A oszlop egyik elemére kattintasz, akkor egyből átugrik a Munka2 nevű sheeten a G oszlop megfelelő elemére, vagy ha Munka2-n a G oszlop egyik elemére kattintasz, akkor átugrik Munka1 A oszlop megfelelő elemére. (nyilván az Munka1!A és Munka2!G oszlopokban legyenek értékek, én pl. egyikbe 1-től 50-ig felvettem értékeket, másikba meg 50-től 1-ig.)

• #29018 bsh addikt kispéé #29017

  Új Válasz 2015-10-13 13:13:26 #29018

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bsh

  addikt

  válasz kispéé #29017 üzenetére

  másik verzió:
  (feltételezi, hogy egy workbookban van a két táblázat: Munka1 és Munka2)

  Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Select Case Target.Worksheet.Name
  Case "Munka1"
  If Target.Column = 1 Then
  On Error Resume Next
  If Not Worksheets.Item("Munka2") Is Nothing Then
  On Error GoTo 0
  With Worksheets.Item("Munka2")
  Set X = .Range("G:G").Find(Target.Value, lookat:=xlWhole)
  If Not X Is Nothing Then
  Application.EnableEvents = False
  Application.Goto .Cells(X.Row, X.Column)
  Application.EnableEvents = True
  End If
  End With
  End If
  On Error GoTo 0
  End If
  Case "Munka2"
  If Target.Column = 7 Then
  On Error Resume Next
  If Not Worksheets.Item("Munka1") Is Nothing Then
  On Error GoTo 0
  With Worksheets.Item("Munka1")
  Set X = .Range("A:A").Find(Target.Value, lookat:=xlWhole)
  If Not X Is Nothing Then
  Application.EnableEvents = False
  Application.Goto .Cells(X.Row, X.Column)
  Application.EnableEvents = True
  End If
  End With
  End If
  On Error GoTo 0
  End If
  End Select
  End Sub

• #29016 szatocs1981 aktív tag kispéé #29015

  Új Válasz 2015-10-13 11:58:16 #29016

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  szatocs1981

  aktív tag

  válasz kispéé #29015 üzenetére

  A makró müködése a következö, talán ez segít a továbbiakban:
  az elsö táblázatból (neve mindegy) kiolvassa az aktuálisan kijelölt cella értékét, majd összehasonlitja a masodik táblázat (neve rögzített) "A" oszlopában lévö értékekkel. Ha egyezést talál, akkor az adott cellába ugrik.

• #29013 szatocs1981 aktív tag kispéé #29012

  Új Válasz 2015-10-13 11:19:51 #29013

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  szatocs1981

  aktív tag

  válasz kispéé #29012 üzenetére

  Igen, nálam müködik!

  Ezt a sort átírtad?

  Windows("Mappe2").Activate

  "Mappe2", valószínü nálad "Munkafüzet2".

• #29008 szatocs1981 aktív tag kispéé #29007

  Új Válasz 2015-10-13 09:54:18 #29008

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  szatocs1981

  aktív tag

  válasz kispéé #29007 üzenetére

  Akkor csinálj egy hasonló táblázatot fake értékekkel és azt posztold (screenshot-ként).
  Ismered: "Egy kép többet mond ezer szónál!"
  Csak bonyolítod a leírásodat, számomra nem egyértelmü az alap kiindulási táblázat, így nem tudok addig segíteni

• #29006 szatocs1981 aktív tag kispéé #29004

  Új Válasz 2015-10-13 09:37:03 #29006

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  szatocs1981

  aktív tag

  válasz kispéé #29004 üzenetére

  Screenshot-ot nyomnál?

• #29005 bsh addikt kispéé #29004

  Új Válasz 2015-10-13 09:29:57 #29005

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bsh

  addikt

  válasz kispéé #29004 üzenetére

  "mindkettőben van egy-egy oszlop azonos számsorral" de "a számsorok sorrendje véletlenszerű, tehát nincs sorban és nincs szinkronban egymással sem." akkor most melyik

Új hozzászólás Aktív témák