sayfada inputbox

[arzum2000]

selamlar
ekteki dosyamda b11:j11 hücresinde mlz hacmini formülle hesaplıyorum ve b24:b27 arasında 2.klt mlz adedini inputbox ile girdiğimde (b8*b9*b10*)*inputbox(target value), hedef hücreler b24:j24 arası girilen malzeme adedidir.hesap sonucu b24:j24 arasında hacime çevirlecek(bulunduğu kolonun(b8*b9*b10 veya bir sonraki c8*c9*c10 next),değerleri çarpacak ve hacim olarak gösterecek ancak toplam adet kısmına adet olarak toplanacak.teşekürlerimi iletiyorum.

 

[Orion1]

Ne istiyorrsunuz anlamadım.
*B24:J27 aralığpınna çift tıklanınca inputbox'ınmı çıkmasını istiyorsunuz.
*İnputboxa değer yazılınca ne olacak?Bulunduğu hücreye ayni sütundaki 8nci ,9ncu ,ve 10ncu satırların çarpımınımı yapacak?

 

[Orion1]

Ekli dosyayı inceleyiniz istediğiniz bumudur?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim adet
If Intersect(Target, [B24:J27]) Is Nothing Then Exit Sub
On Error Resume Next
Cancel = True
adet = InputBox("Lütfen Adet Giriniz :", "ADET GİR", Range("K1").Value)
If Not IsNumeric(adet) Then
    MsgBox "Lütfen Sayısal bir değer giriniz.", vbCritical, "UYARI"
    Exit Sub
End If
Target.Value = Cells(7, Target.Column).Value * Cells(8, Target.Column) * Cells(9, Target.Column) * CDbl(adet)
Range("K1").Value = adet
Cells(28, Target.Column) = Cells(28, Target.Column) + adet
End Sub

 

[arzum2000]

Bir eksik var sadece b24:j24 arasında bir rakam silersem b28:j28 deki toplam adetler değişmiyor.birde b7:j10 arasında veri yoksa makro çalışmamalı.

 

[Orion1]

Bir eksik var sadece b24:j24 arasında bir rakam silersem b28:j28 deki toplam adetler değişmiyor.birde b7:j10 arasında veri yoksa makro çalışmamalı.

ait aolduğu kolonda 7 ,8 veya 9ncu sattırdaki hücrellerden herhangi bir boşsa işlem yapmıyor şekilde düzenledim.
Ancak silme konusunda kaç adet silinecek ?Bu veriyi nerden alacak.Şu an bu belirsiz.Eğer söylerseniz onuda yaparım.

 

[arzum2000]

silme işini b23:j46 kolonları arasında yapacak.yani b23:b46,c23:c46.....,j23:j46 arasında.veriyi ait olduğu kolonun örnek veriyorum b7*b8*b9 sonraki c7*c8*c9......j7*j8*j9 dan alacak

 

[Orion1]

selamlar
ekteki dosyamda b11:j11 hücresinde mlz hacmini formülle hesaplıyorum ve b24:b27 arasında 2.klt mlz adedini inputbox ile girdiğimde (b8*b9*b10*)*

silme işini b23:j46 kolonları arasında yapacak.yani b23:b46,c23:c46.....,j23:j46 arasında.veriyi ait olduğu kolonun örnek veriyorum b7*b8*b9 sonraki c7*c8*c9......j7*j8*j9 dan alacak

b23:j46 diyorsunuz ,oysa soruyu sorduğunuz ilk mesajda (Yukarıda var) b24:ten itibaren 27nci satıra kadar diyordunuz!
Bu konuda kesin kararınızı verirseniz ona göre yapacağım.

 

[arzum2000]

özür, siz 27 ye kadar yapın sorun değil.

 

[Orion1]

Bir eksik var sadece b24:j24 arasında bir rakam silersem b28:j28 deki toplam adetler değişmiyor.birde b7:j10 arasında veri yoksa makro çalışmamalı.

Peki b28:J28 deki adetlerin üstten silince eksilmesi için eksilecek miktarı nerden almalıyım?

 

[arzum2000]

örnek verirsek b24:b27 yi b28 de topluyoruz c24:c27 yi c28 de istediğim şey örneğin önce inputbox ile diyelimki b24 6 adet girdik ve hatalı girildi bunu sildiğimizde ve yerine doğru adedi 5 olarak girdiğimizde b28deki toplam adet de değişmeli.tabi aynı şekilde c24:c27...j24:j27 arasıda aynı şekilde olmalı.

 

[Orion1]

Öyle olmaz.O zaman kontrollu silme hatta değitrime yapmalısınız.
İsterseniz bunun için bir userform hazırlayalım.tıklayınca userform açılsın.
Multipagede koyalım userforma.
Bir sayfasında yeni giriş yapılsın
bir sayfasındada değiştirme yapalım.
Böyle olur.
İstermiisniz?.

 

[arzum2000]

hangisi daha iyi olursa benim için sonuç önemli bekliyorum.

 

[Orion1]

Yalnız yinede 1 belirsizlik var.Şu anda B28 hücresinde 10 rakamı var.
Yolladığım dosyada B24 hücresini manuel sildiğinizde B28 hücresindeki değer kaç olmalıdır?

 

[arzum2000]

Benim girdiğim adet kadar olmalı tabiki sonuçta toplam alıyor.yani b24(kaç adet girildiyse)+b25(kaç adet girildiyse)+b26(kaç adet girildi ise)+b27(kaç adet girildiyse)=b28 ve kaç tanesini silersem o kadar kalmalı

 

[Orion1]

Sağ tarafta en son girilen değerler tutuluyor.
En son girilen değer yalnızca eksiliyor.
2 defa arka arkaya olursa hata olur.
Önce girip sonra silin.(DEL TUŞU ile)
Dosya ektedir.

 

[arzum2000]

tşk ediyorum.elinize sağlık

 

[Orion1]

tşk ediyorum.elinize sağlık

Rica ederim.
İyi çalışmalar.