KTF'yi (Makroyu) formüle çevirmek

[ASLAN7410]

Merhaba herkese hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın 1.sayfasında çalışanlar var, 2.sayfasında çalışan personelleri bürolarına, eğitim durumlarına v.b. gibi ayırıyorum.

Dosya içerisinde bir adet KTF makrosu var, personel çok, icmalini aldığım bölümler çok olduğu için, bu KTF bilgisayarı çok kasıyor ve işlem uzun sürüyor, bu KTF nin yaptığı işlemi ofisin normal formülleriyle yapabilir miyiz?

Yardımcı olur musunuz?


http://dosya.co/wp1ylj0gjhw7/Örnek.xlsm.html

.

 

[Tevfik_Kursun]

Merhaba Arkadaş,
İnceleyin lütfen
Kolay gelsin

 

[ASLAN7410]

Sayın Tevfik Bey ilginiz ilginiz için çok teşekkür ediyorum, sayfalarda çok formül kullanılmış, bu işlemi tek bir hücrede yapmak mümkün mü?

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

Özet Tablo ile yapılmıştır.


.

 

[ASLAN7410]

Sayın İdris Bey, Pivot tablo hiç aklıma gelmemişti, bu özelliği kendi orijinal sayfama uygulamaya çalışıyorum.

Çok teşekkür ederim. Ayrıca Tevfik Bey'ede çok teşekkür ediyorum.

Hayırlı çalışmalar, hayırlı geceler.

 

[halit3]

Alternatif olması için kod
kodu icmal sayfasındayken çalıştırın.

Sub Gruplandir()

ZBasla = TimeValue(Now)
Zaman = Timer

Set S1 = Sheets("ÇALIŞANLAR") ' veri sayfası
Set s2 = Sheets("İCMAL") 'aktarılan sayfa

s2.Range("B2:E100").ClearContents
son1 = S1.Cells(Rows.Count, "d").End(3).Row

ReDim ara1(son1): ReDim ara2(son1): ReDim ara3(son1): ReDim ara4(son1): ReDim ara5(son1):

sat1 = 1
sat2 = 1

For j = 2 To son1
ara1(j) = S1.Cells(j, "F") & S1.Cells(j, "L")
ara2(j) = 1
ara3(j) = S1.Cells(j, "F")
ara4(j) = 1
ara5(j) = S1.Cells(j, "L")
Next j

For r = 2 To son1
aranan1 = ara1(r)
sut6 = 0
If ara2(r) = 1 Then
For i = r To son1
If ara1(i) = aranan1 Then
sut6 = sut6 + 1
ara2(i) = 0
End If
Next i

sat1 = sat1 + 1
s2.Cells(sat1, "d").Value = ara5(r)
s2.Cells(sat1, "e").Value = sut6
End If
Next r



For r = 2 To son1
aranan2 = ara3(r)
sut12 = 0
If ara4(r) = 1 Then
For i = r To son1
If ara3(i) = aranan2 Then
sut12 = sut12 + 1
ara4(i) = 0
End If
Next i
sat2 = sat2 + 1
s2.Cells(sat2, "b").Value = aranan2
s2.Cells(sat2, "c").Value = sut12
End If
Next r


zBitis = TimeValue(Now)

MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
"İşlem süresi ; " & Format(Timer - Zaman, "0.00") & Chr(10) & _
"Geçen Süre " & CDate(zBitis - ZBasla), vbInformation, " Sonuç Penceresi"

End Sub

 

[ASLAN7410]

Sayın İdris Bey, aşağıdaki linkte personelin doğum tarihinin toplamlarını formüllerle almaya, forumdaki arkadaşlar yardım etmişti. İCMAL sayfasındaki T2 ve U2 hücresindeki formüllerin vermiş olduğu sonucu pivota aktarabilir miyiz?

http://www.excel.web.tr/f47/personeli-dooum-tarihine-gore-toplama-t166791.html

 

[Merhum İdris SERDAR]

Sayın İdris Bey, aşağıdaki linkte personelin doğum tarihinin toplamlarını formüllerle almaya, forumdaki arkadaşlar yardım etmişti. İCMAL sayfasındaki T2 ve U2 hücresindeki formüllerin vermiş olduğu sonucu pivota aktarabilir miyiz?

http://www.excel.web.tr/f47/personeli-dooum-tarihine-gore-toplama-t166791.html

.

Yapılabilir.

ÇALIŞANLAR sayfasını doğru dürüst doldurun. Sütun başlıklarını neyse onları yazın. Bilgiler gerçek olmayabilir.

Dinamik bir raporlama hazırlayayım.

.

 

[ASLAN7410]

Sayın İdris Bey yoğunluktan dolayı örneği eklemeyi unutmuşum, kusura bakmayın.

Örnek ekte.
.

 

[Merhum İdris SERDAR]

.

Gerçek dosyanızın 15 -20 satırlık bölümünü ekleyin. Ancak gerçek veriler içermesin.

.

 

[ASLAN7410]

Sayın İdris Bey, en son göndermiş olduğum Örnek(1) dosyası gerçek dosyamla aynı.

 

[Merhum İdris SERDAR]

.


Dosyanız ekte.

.

 

[ASLAN7410]

Sayın İdris Bey çok teşekkür ederim, tam istediğim gibi oldu, ellerinize sağlık.

Hayırlı geceler, hayırlı çalışmalar diliyorum.

 

[Tevfik_Kursun]

Sayın İdris Hocam,
Ben de özet tabloyu öğrenmeye çalışıyorum, örnek için teşekkür ederim.
Sayın Aslan7410, rica ederim.
İyi çalışmalar

 

[ASLAN7410]

Sayın Halit Bey, sizin mesajınızı sonradan gördüm, kusura bakmayın.

Size de çok teşekkür ediyorum.