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

• #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

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