Hirdetés

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

  • risk_dodger

    újonc

    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á :F ).
    Van két worksheet ("Database", "Alap"), és azt szeretném, hogy a "Database!A1" cellában lévő dátumot keresse meg az "Alap!A1:B500" 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