- Katılım
- 31 Aralık 2009
- Mesajlar
- 1,103
- Excel Vers. ve Dili
-
excel 2007 türkçe
Excel Vers. ve Dili Ofis 2003
Merhabalar
Excel ile oluşturduğum bir çalışmada W sütununa çift tıklayınca klasördeki dosyalardan birini (.html) açmakta ve bende bu firefox ile açılan sayfa üzerindeki submit butonuna tıklamaktayım.
Aşağıdaki koda müdahale ederek bunu çift tıklama ile otomatikman yapılmasını sağlamak mümkün müdür?
Excel ile oluşturduğum bir çalışmada W sütununa çift tıklayınca klasördeki dosyalardan birini (.html) açmakta ve bende bu firefox ile açılan sayfa üzerindeki submit butonuna tıklamaktayım.
Aşağıdaki koda müdahale ederek bunu çift tıklama ile otomatikman yapılmasını sağlamak mümkün müdür?
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C20:C2000,w2:w2000]) Is Nothing Then Exit Sub
say = WorksheetFunction.Match(CDbl(Date), Rows(1), 0)
With Cells(Target.Row, say)
.Value = Format(Now, "hh")
.Interior.ColorIndex = 3
End With
With Cells(Target.Row, say)
.Value = Format(Now, "hh")
.Interior.ColorIndex = 3
End With
Application.ThisWorkbook.FollowHyperlink Address:="kor\" & Cells(Target.Row, "D").Value & ".html"
End Sub
Ekli dosyalar
-
37 KB Görüntüleme: 1
-
71.4 KB Görüntüleme: 1
Son düzenleme: