• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
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

  • textbok toplam.xls
    39.5 KB · Görüntüleme: 31

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Önce sayfadaki verileri TextBox'lara almanız lazım, biliyorsunuz değil mi?
Onunla ilgili bir bilgi yazmamışsınız.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
İstediğim gibi. Acaba bu işlemi veri girdikçe yapabilir miyiz. Teşekkürler
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Nereye ne veri girdikçe yapmak istiyorsunuz? Detay vermelisiniz..
 

nasyarx

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

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
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.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
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.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
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?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Harika oldu. Süpersiniz. Son isteğim :). Her harfi kabul ediyor. Sadece İ ,R, S, yazılmasına izin verilse. Teşekkürler
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
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
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Teşekkürler.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt