• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

TextBoxlarda Eğer Formülü

O

ormann

Katılım
9 Ekim 2009
Mesajlar
1,626
Excel Vers. ve Dili
türkçe
2003
Günaydın ,
Ekli dosyada .8 Adet TextBox var.

1-Eğer TextBox1 Dolu İse TexBox4'e BAŞKAN , TextBox5 ve TextBox6'ya ÜYE ,TextBox7'ye ise Tarafımızdan Düzenlenmiştir yazacak.TextBox2 ,3 ve 8 boş olacak
2-Sadece TextBox3 dolu ise Textbox8'e Tarafımdan Düzenlenmiştir. Yazacak.Diğer Tüm TextBoxlar boş olacak.

http://dosya.co/6oidfhixdbxa/TextBoxlar.xls.html
 
Merhaba,

Alternatif:
Sayfanın kod bölümüne;

Kod: 
Private Sub TextBox1_Change()

    Dim nesne As Object

    With ActiveSheet
        If TextBox1 <> "" Then
            TextBox4 = "BAŞKAN"
            TextBox5 = "ÜYE"
            TextBox6 = "ÜYE"
            TextBox7 = "Tarafımızdan Düzenlenmiştir"
            TextBox8 = ""
            Exit Sub
        Else
            For Each nesne In .OLEObjects
                If TypeName(nesne.Object) = "TextBox" Then
                    nesne.Object = ""
                End If
            Next nesne
        End If
    End With
    
End Sub

Private Sub TextBox3_Change()

    Dim nesne As Object, a As Byte
    
    With ActiveSheet
        TextBox8 = ""
        For Each nesne In .OLEObjects
            If TypeName(nesne.Object) = "TextBox" Then
                If nesne.Object = "" Then
                    a = a + 1
                End If
            End If
         Next nesne
         
         If a = 7 Then
            If TextBox3 <> "" Then
                 TextBox8 = "Tarafımdan Düzenlenmiştir"
            End If
        End If
    End With
    
End Sub

.
 
ormann' Alıntı:
ikinize de çok Teşekkür ederim.Ellerinize sağlık.Kodlar gayet güzel çalışıyor.Birde rica etsem şu linkteki konuya bakar mısınız .bir türlü olmuyor.
http://www.excel.web.tr/showthread.php?goto=newpost&t=172905
Genişletmek için tıkla ...

Ömer bey yapmış olduğunuz kod RAPOR sayfasında gayet güzel çalışıyor.Fakat aynı kodları diğer sayfadan (anasayfa) ComboBox1 ve ComboBox2 ile çalıştırmak istediğim zaman olmuyor.Yardımcı olur musunuz ?
http://dosya.co/vahmd5iajd2i/TextBoxlar.xls.html
 
Ömer bey Anasayfadaki ComboBox1 rapor sayfasındaki textbox1 in görevini yine combobox2 ise textBox3 ün yapmış olduğu aynı işlemi diğer sayfadan yapacak.Yani ben Combox1 de veri varsa Başkan, üye, üye.Tarafımızdan Düzenlenmiştiri yazacak.Diğer ComboBox2 ise diğer işlemi yapacak
 
Sorunuzu bu şekilde anlamıyorum.

Diğer sayfası ve işlemleri karıştırmadan. Sadece ComboBox1 ve ComboBox2 için yapmak istediklerinizi detaylı açıklar mısınız.

.
 
ComboBox1 ve Combobox2 de yaptığım işlem diğer sayfaya bağ kuracak.Yani işlemi anasayfada yapacam istenilen veriler rapor sayfasında gözükecek.
 
Ömer' Alıntı:
Comboboxlara veri alıp denedim. Bir sorun görünmüyor. Eki inceleyin.

http://s3.dosya.tc/server16/0v292p/TextBoxlar1.rar.html

.
Genişletmek için tıkla ...

Ömer bey ComboBox1 de sıkıntı :
1-Combobox1 in içerisini sildiğim zaman rapor sayfasında veriler kalıyor.
2-ComBobox2 yi seçtiğimizde rapor sayfasında TextBBox3'e veriyi alıyor.Fakat TextBox6 ya "Tarafımdan Düzenlenmiştir." yazmıyor.Ayrıca ComboBox2'yi de sildiğimde rapor sayfasında veri kalmaması gerekiyor..
 
Son düzenleme:
Rapor sayfasındaki kodları aşağıdakilerle değiştirin.

Kod: 
Private Sub TextBox1_Change()

    Dim nesne As Object
    
    With ActiveSheet
        If TextBox1 <> "" Then
            TextBox4 = "BAŞKAN"
            TextBox5 = "ÜYE"
            TextBox6 = "ÜYE"
            TextBox7 = "İş bu inceleme raporu tarafımızdan Düzenlenmiştir"
            TextBox8 = ""
            Exit Sub
        Else
            For Each nesne In .OLEObjects
                If TypeName(nesne.Object) = "TextBox" Then
                    nesne.Object = ""
                End If
            Next nesne
        End If
    End With
    
End Sub
Private Sub TextBox3_Change()

    Dim nesne As Object, a As Byte
    
    With ActiveSheet
        If TextBox1.Text = "" Then
            TextBox6 = ""
        End If
        For Each nesne In .OLEObjects
            If TypeName(nesne.Object) = "TextBox" Then
                If nesne.Object = "" Then
                    a = a + 1
                End If
            End If
         Next nesne
         
         If a = 7 Then
            If TextBox3 <> "" Then
                 TextBox6 = "Tarafımdan Düzenlenmiştir"
            End If
        End If
    End With
    
End Sub

Private Sub Worksheet_Activate()
    TextBox1_Change
    TextBox1.Text = Sayfa2.ComboBox1.Value
    TextBox3_Change
    TextBox3.Text = Sayfa2.ComboBox2.Value
End Sub

.
 
Ömer bey çok teşekkür ederim.Sizi bayağı bir zahmete soktum.Şimdi tam istediğim şekilde oldu ellerinize sağlık
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst