• DİKKAT

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

tabloda koşula göre kontrol koyma

Huseyinkis' Alıntı:
Yeni Dosyayı Ekleyin bir bakalım hangisini yapabiliriz.

Anladıklarımı yazayım siz doğrulayın?

Konsilide sayfasınada 250 litre üstü yazılmayacak Müdür Aracı için

Verilerin silinmesi halledilmiş .. (o kodlarıda görmek için yeni dosyayı istiyorum)

Silinen Rakam Aylık kısımdandan ve konsilide kısımdan kaldırılacak... burda bir soru var

Örnek : O ay müdür aracı 100 - 300 -200 - 150 lt olmak üzere Toplam 750 litre benzin aldı..

biz bunu 250 lt konsilideye atıcaz 250 lt aylık sayfaya atılacak 500 de limit aşımına yazılacak
100 lt kaydı sildiğimizde önce limit aşımı sayfasındaki 500 den düşeceğiz aylık sayfalardan
herhangi bir rakam silinmeyecek eğer 600 lt iptal etseydik önce limit aşımı sıfırlanacak kalan 100 aylık ve konsilide sayfalarından silinecek değilmi?
Genişletmek için tıkla ...

Hocam sırası ile açıklamak gerekir ise

1-Konselideye bütün aylara girililen verilerin toplamı yazılacak. Yani limit aşımlarının konselideye eklenmemesi gerekiyor.

2- Kayıt silme işlemi ise örneğin müdür aracına ocak ayında 100 + 100 + 70 giriş yapsaydık

a-) veri tabanında 3 satır veri girişi olacaktı
b-) ocak ayında müdür aracına 250 litre giriş yapılacaktı
c-) limit aşımınada 20 litre giriş yapılmış olacaktı. Tablomuz bu şekilde sorunsuz çalışıyor. Ama şimdi biz mesela 70 litrenin yanlış girildiğini tespit ettik ve silmemiz gerekti.

Aşağıya eklediğim tabloda 70'in üzerine gelip kayıt sil dediğimiz zaman veri tabanından sildirebiliyoruz. Fakat Ocak ayından ve limit aşımındanda bu tutarın düşülmesi gerekiyor. Bu kayıt silme sonucunda ocak ayı 200 düşmesi gerekiyor limit aşımıda sıfırlanması gerekiyor.
 

Ekli dosyalar

Sayın hocam örnek dosyayı biraz düzenleyerek tekrar yükledim. Bir önceki mesajımdaki sorunlar devem ediyor. Teşekkürler.
 

Ekli dosyalar

Kodalrda biraz takılma yaşadım çözüp dosyayı en kısa sürede yükleme yapıcam..

biraz bekletmek zorunda kaldığım için özür.
 
Ne özürü sayın hocam. Asıl ben size zamet verdiğim için özür dilerim.
 
Sayın hüseyin hocam gerçekten harikasınız. Aklınıza sağlık süper olmuş. Hocam sizten çekinerek son bir istekte daha bulunabilirmiyim. Çözümünü sitede araştırdım. Çok örnek olmasına rağmen isteğim ile alakalı bir örnek bulamadım. Ben bu tabloda girilen değerleri mizan ile karşılaştırmak istiyorum. mizan ayrı bir excel dosyası. Kapalı olan mizan dosyasındaki koşullara uyan bilgileri bu dosyaya gertirmek istiyorum. Dosyada konselide sheet'ine gerekli kolanları açtım. Burada öncelikle kapalı olan dosyanın birinci sütunundaki şube kodlarını konselide sheet'indeki şube kodları ile karşılaştıracak daha sonra kapalı olan dosyanın ikinci sütunundaki hesap numaralarından 880020 yi bulacak bu iki koşul gerçekleştiğinde üçücü sütundaki rakamı bu dosyaya ilgili şube kodunun karşısındaki mizan rakamı sütununa yazdıracak. Tabi bu işlemleride userform'un üzerine eklemiş olduğum commandbutton'a tıklayınca yapacak. Teşekkürler
 

Ekli dosyalar

Hocam bir önceki mesajımda son isteğim demiştim ama şimdi bir kaç farklı örnek denerken bi sorun ile karşılaştım. Tabloda giriş yaparken litre bölümüne örneğin 25.26 girdiğimde limit aşımı olduğunu yazıyor. Yani bu rakamı 2526 olarak görüyor. Tutar kısmında ise 75.26 yazdığımda bu tutar 7526 ya dönüşüyor.
 
Sayın hocam bir önceki mesajımda yazmış olduğum hatayı evdeki bilgisayarımda vermişti fakat şimdi işyerinde kullanmış olduğum bilgisayarda denediğimde o hatayı vermedi.
 
Sayın hocam yapmış olduğum denemeler sonucunda bir kaç sorun ile daha karşılaştım. Yakıt gideri haricinde diğer giriş yapılan giderlerde silme işlemi yaptığımız zaman limit aşımından silip eksi bakiyeye çeviriyor. Aslında o kısıma hiç girmemesi gerekir. Örneğin Merkez şubenin Otopark giderine 100 Lira giriş yaptıktan sonra bu kaydı sildiğimde Otopark giderinde 100 Lira hala duruyor, Merkez şubenin yakıt alımı ile ilgili limit aşımı kısmındaki tutar kısmından 100 lira düşüyor. Bu hata yakıt gideri haricindeki diğer gidirlerde de geçerli. Teşekkürler
 
alimutlu2308' Alıntı:
Sayın hocam yapmış olduğum denemeler sonucunda bir kaç sorun ile daha karşılaştım. Yakıt gideri haricinde diğer giriş yapılan giderlerde silme işlemi yaptığımız zaman limit aşımından silip eksi bakiyeye çeviriyor. Aslında o kısıma hiç girmemesi gerekir. Örneğin Merkez şubenin Otopark giderine 100 Lira giriş yaptıktan sonra bu kaydı sildiğimde Otopark giderinde 100 Lira hala duruyor, Merkez şubenin yakıt alımı ile ilgili limit aşımı kısmındaki tutar kısmından 100 lira düşüyor. Bu hata yakıt gideri haricindeki diğer gidirlerde de geçerli. Teşekkürler
Genişletmek için tıkla ...

Sadece limit aşımına yoğunlaşınca diğerlerini silmeyi unuttum:)

yeni dosyayı ekliyorum. Diğer kapalı dosyadan veri alma kısmı beni aşıyo.. eğer elinde sadece dosyadan veri alan bir macro varsa belki kodları değiştirerek yapabilirim.
 

Ekli dosyalar

Hüseyin hocam çok teşekkür ederim. Küçük bir hata ile daha karşılaştım. Müdür aracı dışındaki araçlara girilen yakıt giderlerinden silme yaptığımda silinen kayıt'ın tutar kısmını litre kısmından düşüyor. Tutar kısmınıda olduğu gibi bırakıyor. Örneğin Merkez şubenin PazarlamaAracı1'de 200 lt. 250 tl kayıt bulunsun. Bu girilen kayıtlardan 30 lt. 50 tl olanı sildiğimiz zaman sonuç 150 lt 250 tl oluyor. Müdür Aracında bu sorun ile karşılaşmadım sadece diğerlerinde yapıyor. Teşekkürler
 
alimutlu2308' Alıntı:
Hüseyin hocam çok teşekkür ederim. Küçük bir hata ile daha karşılaştım. Müdür aracı dışındaki araçlara girilen yakıt giderlerinden silme yaptığımda silinen kayıt'ın tutar kısmını litre kısmından düşüyor. Tutar kısmınıda olduğu gibi bırakıyor. Örneğin Merkez şubenin PazarlamaAracı1'de 200 lt. 250 tl kayıt bulunsun. Bu girilen kayıtlardan 30 lt. 50 tl olanı sildiğimiz zaman sonuç 150 lt 250 tl oluyor. Müdür Aracında bu sorun ile karşılaşmadım sadece diğerlerinde yapıyor. Teşekkürler
Genişletmek için tıkla ...


Hatayı Düzeltim. Ama yinede siz detaylı kontrol edin.
 

Ekli dosyalar

Teşekkürler hocam

Kapalı dosyadan veri almak ile ilgili elimde şöyle bir kod var. Bu kodda ufak bir değişiklik yapmam gerekiyor. 1 verileri gösterilen sheet'in 4.sütununa getirmesi 2. verileri "O:\ŞUBELER MUHASEBE\SUB.MUH. 2011 GİDERLER\2011 YILI ŞUBE ARACI HESAPLARI" bu yolda bulunan konselide mizan dosyasından getirmesi bunları çözemedim sayın hocam

Private Sub CommandButton7_Click()
Sheets("Sheet2").Columns("A:C").ClearContents
Application.ScreenUpdating = False
Application.DisplayAlerts = False
eskidosya = ActiveWorkbook.Name
Klasor = ThisWorkbook.Path & "\"
Dosya = "KONSELİDE MİZAN.xls"
Workbooks.Open (Klasor & Dosya)
yenidosya = ActiveWorkbook.Name
On Error Resume Next
Sheets(ActiveSheet.Name).Select
Set ver = Workbooks(Dosya).Sheets("Sheet1")
sat = ver.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = ver.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
ver.Range("A1:c" & sat).Copy
Windows(eskidosya).Activate
Workbooks(eskidosya).Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows(yenidosya).Activate
ActiveWindow.Close
Range("A1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheets("Sheet1").Columns("C").ClearContents
For s = 2 To Sheets("Sheet2").Cells(Rows.Count, "A").End(3).Row + 1
If Sheets("Sheet2").Cells(s, 2) = Sheets("Sheet1").Range("h1") Then
For i = 2 To Sheets("Sheet1").Cells(Rows.Count, "A").End(3).Row + 1
If Sheets("Sheet2").Cells(s, 1) = Sheets("Sheet1").Cells(i, 2) Then
Sheets("Sheet1").Cells(i, 3) = Sheets("Sheet2").Cells(s, 3)
'Sheets("Sheet1").Cells(i, 2).Select
End If
Next i
End If
Next s
Sheets("Sheet2").Columns("A:C").ClearContents
MsgBox "işlem tamam"
 
Sayın hocam bir önceki mesajımın çözümünü buldum. Zahmet etmenize gerek yok. Ama tabloda kaydet dediğim zaman bazen veri tabanına kayıt yapan kodlarda hata veriyor. O Kodlarda nasıl bir değişiklik yapsak hata oranı düşer acaba
 
Sayın hocam bir önceki mesajımdaki sorunuda çözdüm. Gereksiz mesajlar için özür diliyorum. Bireysel hatalara karşı tablodaki verilerin yanlışlıkla silinmemesi için kodların arasına sheetleri kilitlemesi için kod giriyorum. Bütün sheetlerde bunu başardım. Fakat sadece limit aşımı kısmında yapamadım. Acaba kodu nereye yazarsam limit aşımı sheet'inde, kodlar çalışırken kilit açılıp sonuçlanınca tekrar kilitlenir.
 
alimutlu2308' Alıntı:
Sayın hocam bir önceki mesajımdaki sorunuda çözdüm. Gereksiz mesajlar için özür diliyorum. Bireysel hatalara karşı tablodaki verilerin yanlışlıkla silinmemesi için kodların arasına sheetleri kilitlemesi için kod giriyorum. Bütün sheetlerde bunu başardım. Fakat sadece limit aşımı kısmında yapamadım. Acaba kodu nereye yazarsam limit aşımı sheet'inde, kodlar çalışırken kilit açılıp sonuçlanınca tekrar kilitlenir.
Genişletmek için tıkla ...

Private Sub CommandButton1_Click()

yazısının hemen altına

Sheets("LimitAşımı").select
ActiveSheet.Unprotect "123321"

açma kodunu koy..


End With


Sheets("VeriTabani").Select
MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation, "Kayıt İşlemi"
Bitir:


işleminin hemen üstüne End With komutunun altına

Sheets("LimitAşımı").select
ActiveSheet.Protect "123321"
kapatma işlemi yaparsa comman button tıkladığında açar işlem tamamlandı mesajından once tekrar kilitler.


Private Sub CommandButton2_Click()
Dim a As Single, b As Single

hemen altına açma.
Sheets("LimitAşımı").select
ActiveSheet.Unprotect "123321"





ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
TextBox1 = ""
TextBox2 = ""
ComboBox1.SetFocus

bu işemin üstünede kapanışı koyarsan buttun tıklanınca açar işlem bitince kapatılır. kapanıştan sonra veritabanı sayfasını seçtirirsen aşağıdaki gibi ii olur.

Sheets("LimitAşımı").select
ActiveSheet.Protect "123321"
Sheets("VeriTabani").select
 
Sayın hocam çok teşekkür ederim. Bu sitenin sizin gibi değerli üyelere gerçekten ihtiyacı var. Eğer vaktiniz olarsa benim gibi yeni başlayanların kodların ne anlama geldiğini anlaması için bu tabloda kodların karşısına ne görev yaptıklarını yazabilirmisiniz acaba. Bu güne kadar bana gösterdiğiniz sabır için size tekrar tekrar teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst