- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhaba
elimde işlem yapılmadığı zaman otomatik kapanan makro kod düzeneği var.
bu kod düzeneğinin bir parçası olan excel dosyası açılırken çalışan kod düzeneği aşağıdaki gibi olup karşıma çıkan İnputbox a 00:00:10 gibi bir değer giriyorum ve 10 saniye exceli kullanmazsam kaydedip kapanıyor.
ben istiyorum ki bu inputbox a ben manuel veri girmek yerine bir hücremde hazır yazılı olan bir değeri yansıtmış olsa
Örneğin sheet1 de A1 hücresinde 00:00:15 verisi olsa dosyayı açtığımda inputbox ın içeriğine bu veri yansımış olsa olabilir mi böyle bir şey bir kaç şey denedim ama bir türlü bir hücredeki veriyi getirtemedim. bilgi ve yardımlarınızı rica ederim
elimde işlem yapılmadığı zaman otomatik kapanan makro kod düzeneği var.
bu kod düzeneğinin bir parçası olan excel dosyası açılırken çalışan kod düzeneği aşağıdaki gibi olup karşıma çıkan İnputbox a 00:00:10 gibi bir değer giriyorum ve 10 saniye exceli kullanmazsam kaydedip kapanıyor.
ben istiyorum ki bu inputbox a ben manuel veri girmek yerine bir hücremde hazır yazılı olan bir değeri yansıtmış olsa
Örneğin sheet1 de A1 hücresinde 00:00:15 verisi olsa dosyayı açtığımda inputbox ın içeriğine bu veri yansımış olsa olabilir mi böyle bir şey bir kaç şey denedim ama bir türlü bir hücredeki veriyi getirtemedim. bilgi ve yardımlarınızı rica ederim
Kod:
Private Sub Workbook_Open()
Do
Süre = Application.InputBox("Varsayılan zaman önerilmektedir " & Onerilen_Zaman & ". " & _
"Girdi formatı '00:00:00'" & vbCrLf & vbCrLf & _
"Kalan süre yukarıda gösterilecektir. " & vbCrLf, _
"Saati ayarlayın", Type:=2)
Loop Until (Süre = False) Or IsDate(Süre)
Süre = IIf(IsDate(Süre), Süre, Onerilen_Zaman)
TimeSlot True
End Sub
