Match Fonksiyonu

[Marco]

Arkadaşlar

K sütununda bugünün tarihi yazan hücrenin sıralama değerini bulmak iiçin aşağıdaki kodu yazdım.

Worksheets("anasayfa").Select
Application.WorksheetFunction.Match(Date, Worksheets("anasayfa").Range("K:K"), 0)
Kod match fonksiyonu kullanılamadı hatasını veriyor (1004)

K sütünunda hem tarih hem de text türünden veri var. veriler sıralı değil.

Sorun nerde olabilir?

 

[Marco]

Date kısmında problem var diğer verileri bulabiliyorum. Bugünün tarihi yazan veriyi nasıl tanımlarım.

 

[Levent Menteşoğlu]

Yazdığınız kod yukarıdaki gibiyse hata var fonksiyonu bir değişkene atamanız gerekir. Tarih için aşağıdaki gibi deneyin.

tarih = WorksheetFunction.Match(CLng(Date), [k1:k65536], 0)

 

[Marco]

Sayın Leventm

sonuc = Application.WorksheetFunction.Match(Worksheets("anasayfa").Range("g1"), Worksheets("TEZGAH").Range("K1:K100"), 0)
MsgBox sonuc ( bu kod çalışıyor g1 deki hücreye bugünün tarihi elle yazılmış olacak)


sonuc = Application.WorksheetFunction.Match(WorksheetFunction.Match(CLng(Date), [k1:k65536], 0), Worksheets("TEZGAH").Range("K1:K100"), 0)
MsgBox sonuc Bu kod çalışmıyor.

 

[Levent Menteşoğlu]

sonuc = Application.WorksheetFunction.Match(WorksheetFunction.Match(CLng(Date), [k1:k65536], 0), Worksheets("TEZGAH").Range("K1:K100"), 0)

Bu şekildeki yazım hatalıdır. Aşağıdaki gibi deneyin.

sonuc = Application.WorksheetFunction.Match(CLng(Date), [k1:k65536], 0)

 

[Marco]

Sayın Leventm i=1 den 1000'e kadar teşekkür ederim. (step 1) bu arada

Þöyle bi baktım da (tesadüf herhalde) sorularıma cevap genelde sizden gelmiş.

Ã?nerdiğiniz yazım sorunu çözdü.