• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Makro İçeriğinde Değişiklik

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
N

noartist

Yeni Üye
Katılım
17 Mar 2022
Mesajlar
114
Aldığı beğeni
8
Excel V
Office 2016 EN
Konu Sahibi
Merhaba arkadaşlar,

Ekteki dosyada Rapor_1 ve Rapor_2 çalışan makro içerikli dosya ve 2 adet CSV dosyası bulunmaktadır.

Rapor_1 dosyasında önceden Toplam sütunu yerine Yüzde hesaplaması yapılıyordu, yüzde hesaplamasının yerine "wfica32.exe" "Diger Uygulamalar" "Tarayıcılar" sütunlarının toplamı "Toplam" sütununa işlenmesi gerekiyor. Uğraştım ama yapamadım.
Bunun dışında veri işlenen her satıra veri işlendiğinde örnek dosyalardaki renkler gibi otomatik boyama yapabilir mi?

1652364470836.png


Rapor_2 dosyasında, aşağıdaki görselde işaretlediğim" wfica32.exe" "Diger Uygulamalar" "Tarayıcılar" "Toplam" sütunları kullanılmayacak, Rapor_1 makrosundan bunların çıkarılması gerekecek baya uğraştım ama yapamadım. Bunun dışında veri işlenen her satıra veri işlendiğinde örnek dosyalardaki renkler gibi otomatik boyama yapabilir mi?

1652363877998.png

Şimdiden teşekkür ederim, umarım bu konuda bir daha yazmam.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
halily
noartist' Alıntı:
Merhaba halily hocam,

En son yaptığımız çalışmadan sonra, bugün fark ettiğimiz bir sorun bulunmakta.

Rapor1 ve 2 dosyalarında haftanın son gününe ait (20.03.2022) bölümünde görebileceğiniz gibi,

Rapor1 de
Diger Uygulamalar
Tarayıcılar
Topla

Rapor2 de
Last activity
Total time
Active time

Sütunlarına veri işlenmiyor
yardımcı olabilir misiniz acaba ?

Şimdiden çok teşekkür ederim.
Genişletmek için tıkla...
rapor_1 kodunun düzenlenmiş hali
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Rapor_1'i deneyiniz.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
1. için
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yerine
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
yazarak dener misiniz?
 
Olumlu oy 0 Negatif oyla
Deneyiniz.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
noartist' Alıntı:
Rapor_2 dosyasında, aşağıdaki görselde işaretlediğim" wfica32.exe" "Diger Uygulamalar" "Tarayıcılar" "Toplam" sütunları kullanılmayacak
Genişletmek için tıkla...
aşağıdaki kodu dener misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
koddan uygulama adlarını ve toplamlarını yazan aşağıdaki kısım
' UygDz = Split(txtTmp, ";")
' For Each UygItm In UygDz
' xSureDz = Split(UygItm, "|")
' xUyg = " " & xSureDz(0) & " "
' If InStr(1, " OUTLOOK.exe EXCEL.exe WINWORD.exe POWERPNT.exe Teams.exe mstsc.exe wfica32.exe chrome.exe msedge.exe ", xUyg) > 0 And UBound(xSureDz) > 0 Then
' xSure = xSureDz(1)
' TplS = SureCvr(xSure)
' tX = ty + 5
' If xUyg = " wfica32.exe " Then tX = ty + 4
' If xUyg = " chrome.exe " Or xUyg = " msedge.exe " Then tX = ty + 6
' TmpArr(dic(TmpD), tX) = TmpArr(dic(TmpD), tX) + TplS
' End If
' Next UygItm
ve % hesabını yapan aşağıdaki kısım silinmiş
' If TmpArr(tStr, tStn + 1) <> 0 Then TmpArr(tStr, tStn + 5) = (TmpArr(tStr, tStn + 4) + TmpArr(tStr, tStn + 3) + TmpArr(tStr, tStn + 2)) / TmpArr(tStr, tStn + 1)

ayrıca
For x = tStn To tStn + 4
If TmpArr(tStr, x) > 0 Then TmpArr(tStr, x) = Format(TmpArr(tStr, x) / 86400, "hh:mm:ss")
Next x döngüsündeki 4 sayısı 1'e düşürülmüştür
 
Olumlu oy 1 Negatif oyla
Konu Sahibi
halily' Alıntı:
aşağıdaki kodu dener misiniz?
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
koddan uygulama adlarını ve toplamlarını yazan aşağıdaki kısım
' UygDz = Split(txtTmp, ";")
' For Each UygItm In UygDz
' xSureDz = Split(UygItm, "|")
' xUyg = " " & xSureDz(0) & " "
' If InStr(1, " OUTLOOK.exe EXCEL.exe WINWORD.exe POWERPNT.exe Teams.exe mstsc.exe wfica32.exe chrome.exe msedge.exe ", xUyg) > 0 And UBound(xSureDz) > 0 Then
' xSure = xSureDz(1)
' TplS = SureCvr(xSure)
' tX = ty + 5
' If xUyg = " wfica32.exe " Then tX = ty + 4
' If xUyg = " chrome.exe " Or xUyg = " msedge.exe " Then tX = ty + 6
' TmpArr(dic(TmpD), tX) = TmpArr(dic(TmpD), tX) + TplS
' End If
' Next UygItm
ve % hesabını yapan aşağıdaki kısım silinmiş
' If TmpArr(tStr, tStn + 1) <> 0 Then TmpArr(tStr, tStn + 5) = (TmpArr(tStr, tStn + 4) + TmpArr(tStr, tStn + 3) + TmpArr(tStr, tStn + 2)) / TmpArr(tStr, tStn + 1)

ayrıca
For x = tStn To tStn + 4
If TmpArr(tStr, x) > 0 Then TmpArr(tStr, x) = Format(TmpArr(tStr, x) / 86400, "hh:mm:ss")
Next x döngüsündeki 4 sayısı 1'e düşürülmüştür
Genişletmek için tıkla...
halily ve Balta hocam elinize emeğinize sağlık.
 
Olumlu oy 0 Negatif oyla
Rica ederim
İyi çalışmalar
 
Olumlu oy 0 Negatif oyla
noartist' Alıntı:
Merhaba halily hocam,

En son yaptığımız çalışmadan sonra, bugün fark ettiğimiz bir sorun bulunmakta.

Rapor1 ve 2 dosyalarında haftanın son gününe ait (20.03.2022) bölümünde görebileceğiniz gibi,

Rapor1 de
Diger Uygulamalar
Tarayıcılar
Topla

Rapor2 de
Last activity
Total time
Active time

Sütunlarına veri işlenmiyor
yardımcı olabilir misiniz acaba ?

Şimdiden çok teşekkür ederim.
Genişletmek için tıkla...
rapor_1 kodunun düzenlenmiş hali
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
rapor_2 için düzeltilmiş kod
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst