b3 e girilen pozitif sayıyı sayfa2 b3 e negatif yazabilirmi(200 girince -200yazacak)

[jambow]

sorun ekteki dosyada sayfa 1 b3 e girilen rakamı sayfa2 b3e eksi olarak yazacak yani 200 girdim diğer sayfadaki hücreye -200 yazacak

 

[Ayhan Ercan]

Merhaba Sn jambow

Sayfa2 deki B3 hücresine :

=-(Sayfa1!B3)

 

[jambow]

bunu makro ile yapabilirmiyiz çünki sayfa 2 b3 bazen silinecek formülde gider

 

[Fuat Şirin]

sub eksi ()
sayfa1.select
Range("B3").Select
ActiveCell.FormulaR1C1 = "=-Sayfa1!RC"
Range("B4").Select
end sub

istediğiniz böle bişeydir umarım

 

[jambow]

arkadaşlar asıl istediğim ekteki dosyada incelerseniz anlarsanız ilgilenen arkadaşlara çok teşekkür

 

[Erdal]

merhabalar
ekli dosyayı incelermisiniz.

 

[jambow]

sadece 1 defa ekliyor ...düğmeye tıkladıkça sayfa2 de aşağıya doğru eklemesi gerekir ... yani şöyle düşünelim sayfa1 deki veriyi hep değişecek ben ekle dediğim zaman sayfa 2 ye alt alta hep eklemesi gerekiyor+ gönderdiğiniz dosyadaki makroyu inceleyemiyorum

 

[Ayhan Ercan]

Tekrar Merhaba,

Dosyanız ekte..

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, son As Long
Set s1 = Sheets("satış")
Set s2 = Sheets("isimler")
x = s2.Range("d65536").End(3).Row + 1
s2.Range("d" & x).Value = -(s1.Range("b3").Value)
s2.Range("e" & x).Value = s1.Range("c3").Value
s2.Range("f" & x).Value = s1.Range("d3").Value
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub EKSİLT()
    SON_SATIR = [isimler!D65536].End(3).Row + 1
    If SON_SATIR < 4 Then SON_SATIR = 4
    Sheets("isimler").Cells(SON_SATIR, "D") = [B3] * -1
    Sheets("isimler").Cells(SON_SATIR, "E") = [C3]
    Sheets("isimler").Cells(SON_SATIR, "F") = [D3]
    MsgBox "&#214;denen miktar&#305; ki&#351;inin hesab&#305;ndan d&#252;&#351;t&#252;m.", vbInformation
End Sub

 

[jambow]

şimdi tamamdır arkadaşlar istediğim buydu son 2 örnek kodlar sorunu çözdü çok teşekkür ederim