Çözüldü Sayfadaki Verileri TextBox'lara Alıp Sayısını ve Toplamlarını Yazdırmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
Selamlar,
Bu formüldeki gibi ek1 den ek20 kadar İ, R, S yazan textboxların toplam sayısını textbox1'e almak istiyorum. Ayrıca bu textbox içeriklerinin sayısal toplamını textxbox2 ye alabilir miyiz? Teşekkürler
Kod:
=EĞERSAY(B1:B20;"S")+EĞERSAY(B1:B20;"R")+EĞERSAY(B1:B20;"İ")
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Önce sayfadaki verileri TextBox'lara almanız lazım, biliyorsunuz değil mi?
Onunla ilgili bir bilgi yazmamışsınız.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Sizin için bu kodları hazırladım. (y)
Sayfadaki verileri TextBox'lara alıp Ek21 ve Ek22'ye toplamları yazar..
PHP:
Private Sub UserForm_Initialize()
    Dim a As Byte, i As Byte, uz As Byte, s As Byte, topla#, metin$
    For a = 2 To 21
        i = i + 1
        Me.Controls("Ek" & i).Value = Cells(2, a).Value
        If IsNumeric(Cells(2, a).Value) Then
            topla = topla + Cells(2, a).Value
                Else
            s = s + 1
        End If
    Next a
    Ek22.Value = s
    Ek21.Value = topla
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
İstediğim gibi. Acaba bu işlemi veri girdikçe yapabilir miyiz. Teşekkürler
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
Textboxlara veri girdikçe.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Sayfadaki verilerle bir işiniz var mı?
Bu işlemi direkt olarak UserForm üzerinde neden yapmıyorsunuz?
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
Sayfa ile ilgili işlemleri yaptım. Bana lazım olan dediğiniz gibi userform üzerindeki işlem. Az önce yaptığınız işlemi anında göstermesini ve yapabilirseniz textboxta İ, R, S var ise o textboxun sarı olmasını. istiyorum. Zahmet olmazsa yardımcı olunuz.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Sn. @nasyarx,

Sayfadaki veriler üzerinde bir işlem yapılacak mı?
Sayfada hiçbir şey olmadığını mı düşünerek kod yazalım, yoksa UserForm üzerindeki TextBox'larda herhangi bir değişiklik yapınca sadece UserForm üzerinde mi değişiklik olacak, ya da bu değişiklikler aynı anda sayfada da değişecek mi? Sayfada değiştiğinde de aynı anda UserForm üzerinde de değişecek mi?

Bunu bir netleştirirsek ona göre kod yazalım.
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
Evet, sayfa ilgili işlem yapılmayacak.Sayfa ile gerekli işlemleri yaptığım için verilerin aktarımı ile ilgili bir işlem yapılmayacak. Sadece userform ile ilgili yardım istiyorum. Değişiklik userform üzerinde görünecek.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Peki. (y)
Class Module ile tüm TextBox’lar yönetilebilir ve yapılan değişikliklere göre toplam alınabilir.
Bilgisayar başına geçince bakacağım.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Merhaba @Admin,

Ancak bilgisayar başına geçebildim.

Yeni bir Class Module oluşturun ve bu kodları yapıştırın..
PHP:
Public WithEvents txt As MSForms.TextBox

Private Sub txt_Change()
    Call Say_Topla
End Sub

Private Sub Say_Topla()
    Dim topla#, a%, i%, s%
    On Error Resume Next
    With UserForm1
        For a = 1 To 20
            If .Controls("Ek" & a).Value <> "" Then
                If IsNumeric(.Controls("Ek" & a).Value) Then
                    topla = topla + .Controls("Ek" & a).Value
                        Else
                    s = s + 1
                End If
            End If
        Next a
        .Ek22.Value = s
        .Ek21.Value = topla
    End With
End Sub
UserForm'a da bu kodları yapıştırın..
PHP:
Dim txtler() As New Class1

Private Sub UserForm_Initialize()
    Dim p%, nesne As Control
    For Each nesne In Controls
        If TypeName(nesne) = "TextBox" Then
            ReDim Preserve txtler(p)
            Set txtler(p).txt = nesne
            p = p + 1
        End If
    Next
End Sub
Bu şekilde işlem yapacaktır..

classtopla.gif
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
Sayın @Admin
Çalışmanız istediğim gibi olmuş. Teşekkürler.
Textbox renk değiştirmeyi de sormuştum. Ona da bir çözüm bulabilir miyiz?
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Class Module'de s = s + 1 satırının üzerine bu satırı ilave edin..
PHP:
.Controls("Ek" & a).BackColor = vbYellow
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
Harika oldu. Süpersiniz. Son isteğim :). Her harfi kabul ediyor. Sadece İ ,R, S, yazılmasına izin verilse. Teşekkürler
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Class Module bu kodları ilave edin..
PHP:
Private Sub txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Is < 48, 58 To 81, 84 To 303, 305 To 1000
            KeyAscii = 0
    End Select
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
Allah razı olsun. Sorun çözülmüştür. Öğrenmek için soruyorum. Yazdığınız harf kodlarını, tüm harflerini (keyascii) nereden öğrenebilirim. Selametle
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Google'da kısa bir arama yaptığınızda bununla ilgili birçok site/sayfa göreceksiniz.
Ya da isterseniz Excel Arşivi Arama - Excel Arşivi sayfasındaki arama kutucuğuna KeyAs yazıp arayabilirsiniz.
Hazırladığım bu şekilde bir dosyayı da orada bulabilirsiniz..

keyascii.png
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
70
En iyi yanıt
0
Puanları
8
Yaş
38
Konum
Muş
Ad Soyad
Ensar Mansur
Teşekkürler.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt