iplik stok takip sayfası sorun ...

Katılım
20 Mayıs 2008
Mesajlar
29
Excel Vers. ve Dili
excel 2003 türkçe
Stok girme ve stok dusme!!!

arklar. ben iplik stok takibiyle ilgili bir excel sayfası oluşturmaya çalıştım. girilen stok ve dusulen stok miktarlarının girildiginde bir hucrede hesaplanmasını istiyorum her bir iplik için. örneki ekte attım. yardımlarınız icin tesekkurler.
 
Katılım
20 Mayıs 2008
Mesajlar
29
Excel Vers. ve Dili
excel 2003 türkçe
arklar ekte sayfayı yolladım stok ekleme ve cıkarma miktarlarını yazdıgım rakamların hesabı yapıldıktan sonra o hucreden silinmesini nasıl saglayabilrim. yardımlarınızı icin simdiden tesekkurler. dosya ekte
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Diğerlerini siz düzenleyin:cool:
Kod:
Private Sub CommandButton1_Click()
x = [g3]
y = [c3]
x = x + y
[g3] = x
Range("C3") = ""
End Sub
Private Sub CommandButton2_Click()
x = [g3]
y = [e3]
x = x - y
[g3] = x
Range("E3").Value = ""
End Sub
 
Katılım
20 Mayıs 2008
Mesajlar
29
Excel Vers. ve Dili
excel 2003 türkçe
sayın Evren Gizlen cok tesekkurler tam olarak istedigim buydu. bu çalışmanın aynısını buton kullanmadan sadece kodla veya formulle yaptırabilirmiyiz?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
sayın Evren Gizlen cok tesekkurler tam olarak istedigim buydu. bu çalışmanın aynısını buton kullanmadan sadece kodla veya formulle yaptırabilirmiyiz?
Zaten kod ile yapıldı.
Buton içine yazılanlar nedir ki? Kod:)
 
Katılım
20 Mayıs 2008
Mesajlar
29
Excel Vers. ve Dili
excel 2003 türkçe
hayır butona basmaya gerek kalmadan bu işlemi otomatik yapmaktı kastım
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
hayır butona basmaya gerek kalmadan bu işlemi otomatik yapmaktı kastım
Aşağıdaki kodu çalışma sayfasının kod bölümüne yazınız ve bir hücreye rakam girerek sonucu gözlemleyiniz.:cool:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C3:C34,E3:E34]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
If Target.Column = 3 Then
    Cells(Target.Row, "G").Value = Cells(Target.Row, "G") + Target.Value
    Else
    Cells(Target.Row, "G") = Cells(Target.Row, "G").Value - Target.Value
End If
Target.Value = Empty
Application.EnableEvents = True
End Sub
 
Katılım
20 Mayıs 2008
Mesajlar
29
Excel Vers. ve Dili
excel 2003 türkçe
sayın Evren Gizlen yardımlarınız için cok tesekkurler. Aramış oldugum kod tam olarak buydu. tekrar tesekkurler iyi çalışmalar.
 
Katılım
20 Mayıs 2008
Mesajlar
29
Excel Vers. ve Dili
excel 2003 türkçe
sayın Evren Gizlen ; bu kodu geliştirmek adına acaba stok + ve stok - ye girilen rakamlar iplik adı ve kodununda belirtildiği baska bir sayfada raporlayabilrimiyiz. Bu mantık cercevesinde bazı arklarımızında sorularıyla karsılasmıstım. yararlı olacağı görüşündeyim. tesekkurler
 
Üst