Onay kutusunun durumuna göre Açılır Kutunun değişmesi

[neo]

:hey: İyi Geceler


Onay kurtusunun durumuna göre Açılır kutunun Değişmesini İstiyorum
örnek dosya ekte yardımlarınız için şimdiden teşekkur ederim

 

[Tarkan VURAL]

Selam; çift açılır kutu kullanmaya ne dersiniz ?

 

[neo]

:hey: Merhaba

Sayın Tarkan VURAL dosyanızı indirdim ama dosya bozuk açılmıyor
yenisini göndermeniz mümküm mü


Saygılarımla

 

[Metin Karaağaç]

yo bozuk değil, çok güzel açılıyor

 

[neo]

:hey:

Ã?zür diliyorum sorun benden kaynaklanıyormuş. güzel ama istediğim bu değildi
CheckBox sun seçimine göre Açılır Kutuda Değişecek Açılır Kutu seçimi tamamlandığında ilgili hesabın hareketlerini Muanin sayfasına aktaramak tı amacım Yardımlarınızı bekliyorum Dısyanın Son Halini Ekliyorum

Saygı ve Sevgilerimle

 

[neo]

:agla: İyi Geceler

arakadaşlar yarımımlarınızı bekliyorum :dua: :dua: :dua:

 

[neo]

:agla: İyi Akşamlar

:dua: :dua: :dua: Lütfen Yardımlarınızı bekliyorum bu olayı çözüme kavuşturamazsam bundan sonrasını getirmem mümkün değil :dua: :dua: :dua:

 

[Levent Menteşoğlu]

Ã?ncelikle muavin sayfasındaki açılır listeyi iptal edin ve yerine denetim araç kutusundan bir combobox yerleştirin. Çünkü comboboxın kontrolü çok daha kolaydır. Sonrada checkboxa aşağıdaki kodu kopyalayın.

[vb:1:632c70bc71]Private Sub CheckBox1_Click()
Set s1 = Sheets("tanımlar")
sonsat = s1.[a65536].End(3).Row
If CheckBox1.Value = False Then
CheckBox1.Caption = "Hesap Adına Göre "
ComboBox1.ListFillRange = "tanımlar!a2:a" & sonsat
Else
CheckBox1.Caption = "Hesap Koduna Göre"
ComboBox1.ListFillRange = "tanımlar!b2:b" & sonsat
End If
ComboBox1.ListIndex = 0
End Sub[/vb:1:632c70bc71]

 

[neo]

:hey:

Sayın Leventm size nasıl teşekur edeceğimi bilemiyorum Çok makbule geçti Bir ricam daha olacak

ComBox taki seçilmiş hesap koduna göre İşlem Sayfasında hesap hareketlerini Muavin Sayfasına sayfaya aktarmak istiyorum

Sevgi ve Saygılarımla

 

[Levent Menteşoğlu]

Combobaxada aşağıdaki kodu kopyalayın.

[vb:1:17e8cb0974]Private Sub ComboBox1_Click()
Set s1 = Sheets("işlem")
sonsat = s1.[a65536].End(3).Row
[a8:l65536].ClearContents
sut = 4
If CheckBox1.Value = False Then sut = 3
For a = 4 To sonsat
If s1.Cells(a, sut) = ComboBox1.Value Then
c = c + 1
For b = 1 To 12
Cells(c + 7, b) = s1.Cells(a, b).Value
Next
End If
Next
End Sub[/vb:1:17e8cb0974]

 

[neo]

:hey:


Sayın Leventm bu kodu dediğiniz gibi ekledim ama tam oturtamadım galiba Borç Borca alacak Alacağa Bakiye kısımları boş olacak şekilde
ayarlamamız mükünmüdür

Saygılarımla

 

[Levent Menteşoğlu]

işlem sayfasındaki başlıkları aynı şekilde muavin sayfasına kopyalarsanız tam denk gelecektir.

 

[neo]

:hey:


Sayın Leventm Evet Haklısınız oldu ama ıufak bi sorun var bu Mauvin sayfasının formatında Borç / Alacak Tan sonra bir Sütün daha var orayı da dikkate alacak şekilde uyarlaya bilirmiyiz

 

[Levent Menteşoğlu]

For b = 1 To 12

Yukarıdaki satırdaki 12 sayısını 13 yapın.

 

[neo]

:hey:

Sayın Leventm Teşekkur ederim

Þimdi Başka bir problemle karşılaştım

Tanımlar sayfasında Sayfaya atamış olduğum bir makrom var bu makro B2:b100 arasını sıralamakta ve Muavin sayfasındaki Combox ListfiilRange C2:c48 tanımlı burda bir sorun oluyıor hata veriyor işlem sayfasına tıkladığımda [a8:l65536].ClearContents bunun için ne yapa bilirim

Verdiğiniz bilgileden dolayı size çok teşekkurederim Saygılarımla

 

[neo]

:hey: Merhabalar
Sayın Leventm Sizi görmek çok güzel

Þimdi Başka bir problemle karşılaştım

Tanımlar sayfasında Sayfaya atamış olduğum bir makrom var bu makro B2:b100 arasını sıralamakta ve Muavin sayfasındaki Combox ListfiilRange C2:C48 tanımlı burda bir sorun oluyıor hata veriyor işlem sayfasına tıkladığımda [a8:l65536].ClearContents bunun için ne yapa bilirim
Sayın Levent Birşey daha var İşlem Sayfasında D Sutununa Çift Tıkladığımda UserForm 2 Çalışıyordu Þimdi Çok Ağır Çalışmak ta bunun için Bir öneriniz olabilirmi Dosyayı da Ekledim

Verdiğiniz bilgileden dolayı size çok teşekkurederim Saygılarımla

 

[Levent Menteşoğlu]

Comboboxtaki kodu aşağıdaki ile değiştirin.

[vb:1:4550246d41]Private Sub ComboBox1_Click()
On Error Resume Next
Set s1 = Sheets("işlem")
sonsat = s1.[a65536].End(3).Row
[a8:m65536].ClearContents
sut = 4
If CheckBox1.Value = False Then sut = 3
For a = 4 To sonsat
If s1.Cells(a, sut) = ComboBox1.Value Then
c = c + 1
For b = 1 To 13
Cells(c + 7, b) = s1.Cells(a, b).Value
Next
End If
Next
FORMAT
sıra
End Sub
[/vb:1:4550246d41]

2.sorunuz içinde userform2 nin rowsource özelliğine yazdığınız aralığı silin ve userformun activate olayına yazılı kodu aşağıdaki ile değiştirin.

[vb:1:4550246d41]Private Sub UserForm_Activate()
Application.ScreenUpdating = False
ListBox1.RowSource = "tanımlar!b2:c" & Sheets("Tanımlar").[c65536].End(3).Row
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "100;150"
End Sub
[/vb:1:4550246d41]

 

[neo]

:dua: Merhaba

Sayın Leventm çok teşekkurederim elinize sağlık

İşlem sayfasındaki UserForm a Çift tıkladığımda Hesabı Hücrelere Aktarması uzun zaman alıyor bu normalmidir

Saygılarımla

 

[Levent Menteşoğlu]

Yavaşlığın sebebi Mizan sayfasındaki formüllerdir, Mizan sayfasındaki formüller işlem sayfasından veri aldığından her seferinde formülleri güncellediğinden işlem uzun sürmektedir.

 

[neo]

:hey:

Sayın Leventm Mizan sayfasında Günleme Butonu var Acaba Bu butona tıklandığında Verileri güncellenmesini sağlayabilirmiyiz yada sizin bu konudaki yorumunuzu beklerim bu konuda bir yol gösterirseniz çok faydalı olur bu çalışmayı çok yönlü olacağı ( Mali Analiz, Finasal Analiz) için çalışma esnasındaki yükü hafifletmiş olurum