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

• #11107 Delila_1 veterán TNT #11106

  Új Válasz 2011-08-17 18:56:21 #11107

  Ú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

  

  Delila_1

  veterán

  válasz TNT #11106 üzenetére

  Szívesen.

• #11084 Delila_1 veterán TNT #11079

  Új Válasz 2011-08-15 17:30:40 #11084

  Ú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

  

  Delila_1

  veterán

  válasz TNT #11079 üzenetére

  Itt van az új makró a pontosítások után:

  Sub mmm()
  Dim talal As Variant, usor As Integer, sor As Integer
  Dim adat_1, adat_2

  Windows("segédtábla.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count

  For sor = 2 To usor
  adat_1 = Cells(sor, 1): adat_2 = Cells(sor, 2)
  Windows("főtábla.xls").Activate
  Sheets(1).Select
  On Error Resume Next
  talal = Columns("A:A").Find(adat_1, LookIn:=xlValues).Row
  Workbooks("főtábla.xls").Sheets(1).Cells(talal, 1) = adat_2
  Windows("segédtábla.xls").Activate
  Next
  End Sub

  Alt+F11-gyel behívod a VBA szerkesztőt. Bal oldalon a kiválasztod a füzetedet – mindegy, hogy a kettő közül melyiket. A néven jobb klikk, Insert, Module. Jobb oldalon kapsz egy üres felületet, oda másold be a makrót.
  Mindkét füzeted legyen nyitva. Az egyikben állva Eszközök, Makró, Makrók – vagy ezek helyett Alt+F8 –, kapsz egy párbeszéd ablakot, ott indítod a hangzatos mmm című makrót.

• #11078 Delila_1 veterán TNT #11074

  Új Válasz 2011-08-13 20:24:05 #11078

  Ú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

  

  Delila_1

  veterán

  válasz TNT #11074 üzenetére

  Írtam egy makrót, de több dolog tisztázatlan. Úgy vettem, hogy mindkét füzetben az első lapon vannak az adatok. Nem írtam bele hibakezelést arra az esetre, ha a főtábla.xls-ben nem szerepel a segédtábla.xls valamelyik adata.

  Továbbá nem tudom, a főtáblában melyik "a főtábla adott mezője", ahova át kell másolni a segédtábla B oszlopában található értéket. A makró a megtalált adat sorának a B oszlopába írja a segédtábla B mezőjét.

  Ha ezeket a dolgokat tisztáztuk, megmondom, mi(ke)t kell átírni a makróban, és egyáltalán hogy kell alkalmazni. Ha nem leszek itt, biztosan kisegít valaki.

  Sub Javit()
  Dim talal As Variant, usor As Integer, sor As Integer
  Dim nev, szam
  
  Windows("segédtábla.xls").Activate
  Sheets(1).Select
  usor = ActiveSheet.UsedRange.Rows.Count
  
  For sor = 2 To usor
  nev = Cells(sor, 1): szam = Cells(sor, 2)
  Windows("főtábla.xls").Activate
  Sheets(1).Select
  
  talal = Columns("A:A").Find(nev, LookIn:=xlValues).Row
  Workbooks("főtábla.xls").Sheets(1).Cells(talal, 2) = szam
  Windows("segédtábla.xls").Activate
  Next
  End Sub

• #11076 m.zmrzlina senior tag TNT #11074

  Új Válasz 2011-08-13 17:16:51 #11076

  Ú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

  

  m.zmrzlina

  senior tag

  válasz TNT #11074 üzenetére

  Két kérdés.

  1. A főtábla és a segédtábla egy munkafüzet két különböző munkalapja, vagy két külön fájl? Gyanítom a második.

  2. találatkor a főtábla adott mezőjét a Ez azt jelenti, hogy azt a cellát kell átírni a segédtábla adott sor, B oszlop elemére amiben a találat volt? Tehát, hogy még érthetőbb legyen (vagy még zavarosabb) Ha a főtábla A5-ben megtalálom a melléktábla A5 értékét akkor a főtábla A5 felveszi a melléktábla B5 értékét?

• #11075 TNT csendes tag TNT #11074

  Új Válasz 2011-08-13 15:28:00 #11075

  Ú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

  

  TNT

  csendes tag

  válasz TNT #11074 üzenetére

  Nem tudom számít-e, de biztonság kedvéért:

  Nem fordul elő 2 azonos név. Mindegyik elem egyedi. Tehát nincs olyan, hogy többször lenne valami a főtáblában.

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