Çalışma süresi ve duruşlar

[fdisk]

Çalışma süresi ve duruşlar makro nasıl olabilir.

Arkadaşlar;
Örnek dosyaya nasıl makro uygulanabilir.

açıklama dosyanın içinde belirttim.

Yardımlarınız için şimdiden çok sağolun.
Saygılarımla

 

[fdisk]

yardım lütfen

 

[baydeniro]

Merhaba fdisk. Zaman bölümlerinde boş olan yerler var. Bu durumlarda zamanı nasıl dikkate alıyorsunuz.

 

[fdisk]

Merhaba fdisk. Zaman bölümlerinde boş olan yerler var. Bu durumlarda zamanı nasıl dikkate alıyorsunuz.

boş olanları dikkate almıyoruz

 

[baydeniro]

fdisk, tamam ona göre boş yerler ayarlanabilir. Ancak bazı boş yerler Duruşun çok uzun gözükmesine neden oluyor. Örneğin 100043 için 04:34:16 dan sonra boşluk var. Boşuktan sonraki ilk zaman ise 05:08:02. Buradaki zorluk şu : formülasyon löyle kurgulanacak. 2. zamandan 1. zamnı çıkar. Eğer 2. zaman boş ise bir sonraki zaman git. Bu sefer yukarıdaki durumlarda duruş çok uzun gözükecek. Sanki datada bazı hatalar var gibi. Datanın yapısından eminseniz ve boş olan yerlerin durumunun anlattığım gibi olması sakıncalı değilse benim bir çözümüm var.

 

[fdisk]

sakıncalı değil ama bazı satrlarda zaman birden 07:00 20:00 geciyor o zaman çok fark çıkıyor. Aslında sadece veri sıralamsı farklı 08 ile 20:00 arası düzgün sıralanıyor ama 20 ile 08:00 arasında sıralamada sorun oluyor o zamanda fark bi satırda büyük oluyor.

 

[baydeniro]

İşte ben de o yüzden çözümü eklemedim. Çünkü datanın bu haliyle tatmin edici veriler vermeyecek.

 

[fdisk]

Sayın serdarokan siz yine bana cözümü gönderebilirmisiniz.
eğer sıralamayı düzeltebilirsek sorun çözülebilir.

 

[baydeniro]

* fdisk o zaman aşağıdaki kodu bir modüle yerleştir ve butona bağla.
* Hangi personelin raporu alınacaksa Sayfa2 I1 hücresine kontrolor numarasını yaz ve butona bas.

 

[baydeniro]

Sub DURUS()

Sheets("Sayfa2").Select
Columns("A:G").Select
Selection.ClearContents
Range("A1").Select

Sheets("Sayfa2").Select
Range("I1").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("I1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.AutoFilter Field:=2, Criteria1:=[I1], Operator:=xlAnd
Columns("A:G").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa2").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("A1").Select
Selection.AutoFilter Field:=2
Sheets("Sayfa2").Select
Range("I1").Select
Selection.AutoFilter Field:=2

End Sub