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

• #20214 risk_dodger csendes tag

  Új Válasz 2014-01-24 12:25:43 #20214

  Ú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

  

  risk_dodger

  csendes tag

  Sziasztok!

  Makróval kapcsolatos problémám lenne és nem nagyon találom a megoldást (két napja írogatok makrókat, ennyire értek hozzá ).
  Van két worksheet ("Database", "Alap"), és azt szeretném, hogy a "Database!A1" cellában lévő dátumot keresse meg az "Alap!A1500" tömbben, és adja vissza a helyét. Erre írtam (loptam) egy makrót, de csak számmal működik, dátummal már nem:

  Sub datumkeres()

  a = Workbooks("Database.xlsx").Sheets("Sheet1").Cells(1, 1).Value 'Ezt az értéket keresem

  With Workbooks("Gyak.xlsm").Worksheets("Alap").Range("a1:b500") 'Ebben a tömbben
  Set c = .Find(a, LookIn:=xlValues)
  If Not c Is Nothing Then
  firstAddress = c.Address
  Worksheets("Alap").Range("D6").Value = firstAddress
  Else: MsgBox ("Nincs találat!")
  End If
  End With
  End Sub

  Ha valakinek van ötlete, kérem segítsen abban, hogy lehet a dátum formátumot kezelni!
  Köszönöm előre is!

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