Ã?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
Ã?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]
[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]
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
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
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
: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
[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]
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.
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.