Anket Sonuçları

[1Al2Ver]

Merhabalar,

Projeyi bir süreliğine erteledim, teşekkür ederim.

 

[1Al2Ver]

Merhabalar,

Projeyi bir süreliğine erteledim, teşekkür ederim.

Değerli üyeler, bir süre önce görülen lüzum üzerine ertelenen projenin şimdi sizlerin de yardımları ile tamamlanması ihtiyacı doğmuştur, zaman bulabilen üye arkadaşlarımın katkıları ile projemin tamamlanmasını arzulamaktayım, emeği geçen arkadaşlarıma tekrar teşekkür ederim,

Konu; Birden fazla firmaya gerçekleştirilen anket sonuçlarının, genel olarak izlenmesi ve kendi başlıkları arasında ayrıştırılmasıdır,

Örnekte ;

1) 25 adet firmadan ankete katılanlar, "Müşteri" sayfasında B kolonu çift tıklanarak, B,C ve D kolonundaki bilgileri, Genel:Aşçı aralığındaki sayfalara (7 sayfa) taşınmaktadır, (burada sadece bir müşteri taşıyabildim, oysa üzerine tıklanan müşteri anılan sayfalarda bir alt satıra gelmesi gerekirdi)

2) "Genel" isimli sayfadaki "Aktar" butonu tıklandığında, Lezzet, Kıvam, Görünüş, Genel Hijyen, Menü Tertibi, Yemek Isısı, Garson ve Aşçı başlıklarındaki rakamların aynı isimdeki kendi sayfalarına aktarılması gerekmektedir,

Diğer açıklamaları ek'li dosyanın ilgili sayfalarında bulabilirsiniz, hepinize saygılar sunarım.

 

[1Al2Ver]

Değerli üyeler, bir süre önce görülen lüzum üzerine ertelenen projenin şimdi sizlerin de yardımları ile tamamlanması ihtiyacı doğmuştur, zaman bulabilen üye arkadaşlarımın katkıları ile projemin tamamlanmasını arzulamaktayım, emeği geçen arkadaşlarıma tekrar teşekkür ederim,

Konu; Birden fazla firmaya gerçekleştirilen anket sonuçlarının, genel olarak izlenmesi ve kendi başlıkları arasında ayrıştırılmasıdır,

Örnekte ;

1) 25 adet firmadan ankete katılanlar, "Müşteri" sayfasında B kolonu çift tıklanarak, B,C ve D kolonundaki bilgileri, Genel:Aşçı aralığındaki sayfalara (7 sayfa) taşınmaktadır, (burada sadece bir müşteri taşıyabildim, oysa üzerine tıklanan müşteri anılan sayfalarda bir alt satıra gelmesi gerekirdi)

2) "Genel" isimli sayfadaki "Aktar" butonu tıklandığında, Lezzet, Kıvam, Görünüş, Genel Hijyen, Menü Tertibi, Yemek Isısı, Garson ve Aşçı başlıklarındaki rakamların aynı isimdeki kendi sayfalarına aktarılması gerekmektedir,

Diğer açıklamaları ek'li dosyanın ilgili sayfalarında bulabilirsiniz, hepinize saygılar sunarım.

Değerli üyeler, proje yarım kaldı, tamamlamak için yardımlarınız gerekiyor, teşekkür ederim.

 

[1Al2Ver]

Macro ile bir yere kadar getirebildiğim projede eksik kalan bir iki yer kaldı sanıyorum, tamamlayabilmek adına eklenecek kodlar nelerdir, yardımlarınız için teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Sadece, 25 müşteri kapasiteli bir proje mi geliştirilecek ?

 

[1Al2Ver]

Sadece, 25 müşteri kapasiteli bir proje mi geliştirilecek ?

Sayın Ferhat Pazarçevirdi, iyi geceler,öncelikle ilginiz için teşekkür ederim,

Müşteri 150 kadar, ancak ankete en fazla katılan müşteri sayısı aylık olarak 25 oluyor, tablo oluştuğunda en fazla 25 müşterilik olur,

Tekrar teşekkür ederim, saygılarımla

 

[Ferhat Pazarçevirdi]

"Müşteri" sayfasında, "B" sütununa çift tıklandığında "X" (Çarp&#305 işareti koyan bir kodunuz çalışıyor. Şimdi ise isteğiniz üzere, bu sütununa çift tıklandığında aktarma yapan kodları yerleştiriyoruz. Ama benim yazdığım kod çalışıp bittikten sonra, ilgili hücreye "X" koyuluyor. Bu "X" in anlamı nedir? veya anlamı var mı?

 

[1Al2Ver]

"Müşteri" sayfasında, "B" sütununa çift tıklandığında "X" (Çarpı) işareti koyan bir kodunuz çalışıyor. Şimdi ise isteğiniz üzere, bu sütununa çift tıklandığında aktarma yapan kodları yerleştiriyoruz. Ama benim yazdığım kod çalışıp bittikten sonra, ilgili hücreye "X" koyuluyor. Bu "X" in anlamı nedir? veya anlamı var mı?

Sayın Ferhat Pazarçevirdi, "X" in anlamı yok (bu bir yama olduğu için orada lüzumsuz duruyor olabilir) ve koysun istemiyorum, anılan kodu istenilen şekilde düzeltebilirsiniz, amacım çift tıklanan müşteriler ilgili sayfalarda alt alta sıralansın, tekrar teşekkür ederim, saygılarımla.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz. Sorun olursa, tekrar görüşürüz.

YAPILAN İŞLEMLER : ..............

1. Daha önceki tüm kodlamalar silindi. Sayfa isimleri, "Genel" sheetinin birinci satırında bulunan değerlere göre revize edildi.

2. "GENEL" adlı sheet'in kod sayfasına aşağıdakiler ilave edildi. Bunlar, "Mevcut" adıyla belilenen limiti, aşan değer girişlerinde, uyarı verdirmek için tasarlandı.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bs As Integer
    Dim bt As Integer
 
    If Not Intersect(Target, Range("C4:AW25")) Is Nothing Then
 
        Select Case Target.Column
            Case 3 To 7: bs = 3: bt = 7 'Lezzet
            Case 9 To 13: bs = 9: bt = 9 'Kıvam
            Case 15 To 19: bs = 15: bt = 19 'Görünüş
            Case 21 To 25: bs = 21: bt = 25 'Genel Hijyen
            Case 27 To 31: bs = 27: bt = 31 'Menü Tertibi
            Case 33 To 37: bs = 33: bt = 37 'Yemek Isısı
            Case 39 To 43: bs = 39: bt = 43 'Garson
            Case 45 To 49: bs = 45: bt = 49 'Aşçı
            Case Else: Exit Sub
        End Select
 
        If Cells(Target.Row, "B") < WorksheetFunction.Sum(Range(Cells(Target.Row, bs), Cells(Target.Row, bt))) Then
           MsgBox "Girilen say&#305; , toplamda limit d&#305;&#351;&#305;na &#231;&#305;k&#305;yor", vbCritical, "UYARI"
           Target = Empty
           Target.Select
        End If
 
    End If
 
End Sub

3. "Müşteri" adlı sheet'in kod sayfasına aşağıdakiler yazıldı. Bunlar, müşterileri sayfalara dağıtmak içindir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim sh As Worksheet
    If Not Intersect(Target, Range("B2:B25")) Is Nothing Then
        For Each sh In ThisWorkbook.Worksheets
            If sh.Name <> "M&#252;&#351;teri" Then
                If sh.Name = "GENEL" Then
                    sh.Range("A4:A25").Value = Range("B4:B25").Value
                Else
                    sh.Range("A4:C25").Value = Range("B4:D25").Value
                End If
            End If
        Next
        MsgBox "Veriler, sayfalara aktar&#305;ld&#305;", vbInformation, "B&#304;LG&#304;LEND&#304;RME"
    End If
End Sub

4."Aktar" adında bir makro yazıldı. Bu makro, "Genel" sheetindeki butona atandı. Böylelikle, girilen değerler sayfalara aktarılıyor.

Sub Aktar()
Dim sh As Worksheet
Dim i As Integer
Dim shG As Worksheet
Set shG = Sheets("GENEL")
x = 3
For i = 3 To 49 Step 6
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = shG.Cells(1, i) Then
            sh.Range("D4:H25").Value = shG.Range(shG.Cells(4, i), shG.Cells(25, i + 4)).Value
            Exit For
        End If
    Next
Next i
Set shG = Nothing
End Sub

5. "GENEL" sayfasındaki BA4 hücresine aşağıdaki formül yazıldı ve aşağıya doğru kopyalandı.

=TOPLA.ÇARPIM(($C$3:$AW$3=AZ4)*$C$26:$AW$26)

 

[1Al2Ver]

Sayın Ferhat Pazarçevirdi, bu saatlere kadar emek verdiniz, göz nuru döktünüz, sonsuz teşekkür ederim, ancak ;
1) "Müşteri" sayfasındaki müşterilerden benim seçtiklerim (yani, üzerine çift tıkladıklarım) "Genel" sayfasının A4:B25 aralığına alt alta sıralanacak
2) "Genel" sayfasına gelen müşterileri "Aktar" butonu ile Lezzet:Aşçı aralığındaki sayfalara (7 adet) A4:H25 aralığına aktarılacak

Örneklersek ; 1) Çift tıklama ile 5 müşteri "Genel" sayfasının A4:B8 satırlarına aktarılsın, ben bu işlemin ardından C4:AW8 aralığına manuel veriler gireceğim
2) "Genel" sayfasındaki "Aktar" butonu ile bu veriler sırasıyla "Lezzet" sayfası A4:H8'e, "Kıvam" sayfası A4:H8'e, "Görünüş" sayfası A4:H8'e, diyerek en son "Aşçı" sayfası A4:H8'e, aktarılacak.

Zahmetleriniz için tekrar çok teşekkür ederim, saygılarımla.

 

[1Al2Ver]

Bir düzeltme; 1) Çift tıklama ile 5 müşteri mevcut sayfaların A4:B8 satırlarına aktarılsın, bu düzeltme için affınızı rica ederim, tekrar teşekkürler, saygılarımla.

 

[Ferhat Pazarçevirdi]

Hangi 5 müşteri ? Mesela "Müşteri" sayfasındaki B14 hücresine çift tıkladınız ...

 

[Ferhat Pazarçevirdi]

10 Nolu mesajdaki, istekleriniz dosyay uygulanmıştır. Ayrıca, tüm verileri temizlyecek bir makro daha koydum. İsterseniz, kullanırsınız.

 

[1Al2Ver]

Sayın Ferhat Pazarçevirdi, merhaba,

"Müşteri" sayfasından rastgele ( 2, 12, 15, 18, 21 gibi ) 5 müşteriyi sırasıyla çift tıkladım, (diğer bir deyişle 5 müşterinin anket sonuçlarını değerlendirmek istedim) bu 5 müşteri'nin B ve C kolonundaki bilgileri " Genel" sayfasında A4:B8'e giderken B,C ve D kolonundaki bilgileri diğer sayfaların A4:B8 hücrelerine gidecek,

Not ;

Ek'li dosyanın şu halinde "Genel" sayfasına taşınması gereken mevcutlar (B4) taşınmıyor, saygılarımla.

 

[1Al2Ver]

10 Nolu mesajdaki, istekleriniz dosyay uygulanmıştır. Ayrıca, tüm verileri temizlyecek bir makro daha koydum. İsterseniz, kullanırsınız.

Sayın Ferhat Pazarçevirdi, merhaba, iyi geceler, 14 nolu mesajımı gördünüz mü,
dosyanın yeni halini indirdim fakat sorun devam ettiği gibi, sil macrosunu da göremedim? Kaldığımız yerden devam edebilirsek sevinirim, saygılarımla.

 

[Ferhat Pazarçevirdi]

Ben, "Müşteri" sayfasından "GENEL" sayfası dışındaki sayfalara direkt veri aktarımını, veri güvenliği açısından uygun bulmadım. Bunun yerine şöyle bir algoritma düşündüm.

1. İlkönce "Müşteri" sayfasından "GENEL" sayfasına seçilen veriler aktarılır.
(-ki burada "Müşteri" sayfasının B ve C sütunları, "GENEL" sayfasının A ve B sütunlarına taşınıyor. Bu nedenle, mesajınızda "Mevcut" taşınmıyor'u bu nedenle anlayamadım)

2. Müşteri sayfasında, Girilen verinin mevcut'a uygun olup olmadığı kontrol edilir.

3. "GENEL" sayfasında "Aktar" butonuna bastığınızda, "Müşteri İsimleri", "Mevcutları", "Aldıkları Menüler" ve sizin "GENEL" sayfasına girdiğiniz istatistikler tek tek uygun sayfalara aktarılır.

"Müşteri" sayfasından çift tıklama ile, bütün sayfalara isimleri dağıtabilirdik. Ama bunlar henüz hazır olmayan verilerdir. Yani yarımamul gibi düşündüm. O nedenle, anket sonuçlarını girmeden bu bilgilerin önce sayfalara taşınması anlamsız geldi.

 

[1Al2Ver]

Ferhat bey,

1) "Müşteri" sayfasından "B" sütunu çift tıklanarak "Genel" sayfasına tıklanan müşterinin B ve C sütunu taşınırken aynı zamanda diğer sayfalara B,C ve D sütunu bilgileri taşınır.
2) "Genel" sayfasına taşınan seçilmiş müşterilerin anket sonuçları manuel olarak sayfadaki başlıkların altındaki hücrelere girilir, bu işlem bitince "Aktar" butonu ile "Genel" sayfasının verilerinin tamamı "Lezzet:Aşçı" aralığına taşınır.

Benim için önemli olan, "Müşteri" sayfasından istediğim müşterinin "B" sütunu çift tıklanarak diğer sayfalara taşınmasıdır, yani müşterilerin tümünü değil seçtiklerimi aktarmak istiyorum, zaten tamamını istesem çift tıklama yerine "Sayfa Aktar" butonu ile bu işlemi gerçekleştirebilirdik, teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Benim için önemli olan, "Müşteri" sayfasından istediğim müşterinin "B" sütunu çift tıklanarak diğer sayfalara taşınmasıdır, yani müşterilerin tümünü değil seçtiklerimi aktarmak istiyorum, zaten tamamını istesem çift tıklama yerine "Sayfa Aktar" butonu ile bu işlemi gerçekleştirebilirdik, teşekkür ederim.

Kusura bakmayın. Yardımcı olmak isterdim ama anlayamıyorum ne demek istediğinizi ...

Size en son bir dosya gönderdim. Bu dosyada; üstüne çift tıkladığınız müşteriler "Genel" sayfasına aktarılıyordu. Sonra da "Aktar" makrosu ile, diğer sayfalara "GENEL" sayfasında ne varsa gönderiliyordu. Bu metodu kullanmamım nedenini de, bir önceki mesajımda izah etmiştim.

NOT : Ayrıca, sorunuz üzerine; tablo içeriklerinin komple temizlenmesi hakkındaki makroyu, VBE'ye girip Module1'in içerisinde bulabilirsiniz.

 

[1Al2Ver]

Ferhat bey, teşekkür ederim, sizi yeterince meşgul ettim, kusuruma bakmayın lütfen, aslında kendimi iyi ifade eden birisiyim ama sanırım bir iletişim hatası var, 13 nolu mesajdaki dosyadan bahsediyorsak VBE'deki Modül1'de ;

Sub Aktar()
Dim sh As Worksheet
Dim i As Integer
Dim shG As Worksheet
Set shG = Sheets("GENEL")
x = 3
For i = 3 To 49 Step 6
For Each sh In ThisWorkbook.Worksheets
If sh.Name = shG.Cells(1, i) Then
sh.Range("D4:H25").Value = shG.Range(shG.Cells(4, i), shG.Cells(25, i + 4)).Value
Exit For
End If
Next
Next i
Set shG = Nothing
End Sub

kodu var, bu kod verileri temizleyen kod ise tamam,

Cevabınızda adı geçen aktarma, çift tıklama ile müşterinin seçilenini değil tamanını aktarıyor, benim indirdiğim dosya böyle çalışıyor, belki de aynı dosyadan bahsetmiyoruzdur, dosyayı ekledim, zahmet olmaz ise bakarmısınız ? Herşey için tekrar teşekkür ederim,

 

[Ferhat Pazarçevirdi]

Offfff, Offfff .... İki saattir siz bu dosyaya ben başka dosyaya bakıp mı konuşuyoruz yani

13 Nolu mesajdaki dosyanın adı "Anket 04.04.08-2.zip" .... Sizin, az önceki mesajınızda gönderdiğiniz dosyanın adı ise "Anket 04.04.08-1.zip". Yani eski versiyon.... (Böyle bir problemler olacağını tahmin ettiğimden, her eklediğim dosyanın sonuna versiyon no koyarım)

Lütfen, 13 Nolu mesajdaki "Anket 04.04.08-2.zip" dosyasını indirin ve inceleyin.