Merhabalar ;
Bir konuda yardımınıza ihtiyacım var.Çalıştığım firmada stok takibi için excelde yapılmış basit bir şeye ihtiyacım var.4-5 gündür arıyorum.Nihayet işime yarayan bir kod buldum.Ama konuya vakıf olmadıgım için istediğimi yapamıyorum.Sorunum şunlardır ;(Önce kodu veriyorum;Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" And Target.Value <> 0 Then
Range("C10").Value = Range("C10").Value + Range("A10").Value
End If
If Target.Address = "$B$10" And Target.Value <> 0 Then
Range("C10").Value = Range("C10").Value - Range("B10").Value
End If
End Sub)
......A........ B..........C
9.....Giren....Çıkan....Kalan
10.......10.......5.........50
burda girene ve çıkana değer eklediğimde kalan değişiyor.Tamda böyle olmasını istiyorum.Ama A sütunu boş olmalı çünkü oraya ürün kodunu gireceğim.
......A........ B..........C
9.....Giren....Çıkan....Kalan
10.......10.......5.........50
Sütun ekle dediğimde hata uyarısı alıyorum.Visual basic düzenleyicisini açıp elle satırları sütunları tek tek düzenliyorum.Bunun basit bir yolu yok mudur ?
2. si ben alt alta yüzlerce ürün yazacağım ve girenleri
çıkanları işleyeceğim.
..........A.............B..........C..........D
9.....................Giren......Çıkan.....Kalan
10.....X ürünü........10........10.........35
11.....Y ürünü........7..........5..........50
12.....Z ürünü........15........7..........40
gibi.Bu hale getirebilmem için pratik bir yol var mıdır;
yüzlerce ürün için visual basicte elle satır ve sütun belirtmek çok çok zor.Umarım açıklayabilmişimdir.
Yardım edebilirseniz sevinirim.İyi günler dileklerimle;
Bir konuda yardımınıza ihtiyacım var.Çalıştığım firmada stok takibi için excelde yapılmış basit bir şeye ihtiyacım var.4-5 gündür arıyorum.Nihayet işime yarayan bir kod buldum.Ama konuya vakıf olmadıgım için istediğimi yapamıyorum.Sorunum şunlardır ;(Önce kodu veriyorum;Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" And Target.Value <> 0 Then
Range("C10").Value = Range("C10").Value + Range("A10").Value
End If
If Target.Address = "$B$10" And Target.Value <> 0 Then
Range("C10").Value = Range("C10").Value - Range("B10").Value
End If
End Sub)
......A........ B..........C
9.....Giren....Çıkan....Kalan
10.......10.......5.........50
burda girene ve çıkana değer eklediğimde kalan değişiyor.Tamda böyle olmasını istiyorum.Ama A sütunu boş olmalı çünkü oraya ürün kodunu gireceğim.
......A........ B..........C
9.....Giren....Çıkan....Kalan
10.......10.......5.........50
Sütun ekle dediğimde hata uyarısı alıyorum.Visual basic düzenleyicisini açıp elle satırları sütunları tek tek düzenliyorum.Bunun basit bir yolu yok mudur ?
2. si ben alt alta yüzlerce ürün yazacağım ve girenleri
çıkanları işleyeceğim.
..........A.............B..........C..........D
9.....................Giren......Çıkan.....Kalan
10.....X ürünü........10........10.........35
11.....Y ürünü........7..........5..........50
12.....Z ürünü........15........7..........40
gibi.Bu hale getirebilmem için pratik bir yol var mıdır;
yüzlerce ürün için visual basicte elle satır ve sütun belirtmek çok çok zor.Umarım açıklayabilmişimdir.
Yardım edebilirseniz sevinirim.İyi günler dileklerimle;
Son düzenleme:
