makroda Activecell hucreyi ters alma

[canmexx]

ActiveCell.Offset(0, 10).Select

ActiveCell 'e secilen hucredeki rakami nasil ters isaretli olarak aldirabilirim ? (yani eger rakam (-) ise + olarak , (+) isede - olarak getirsin)


yardimlariniz icin tesekkurler,

 

[uzmanamele]

ActiveCell.Offset(0, 10).Select

ActiveCell 'e secilen hucredeki rakami nasil ters isaretli olarak aldirabilirim ? (yani eger rakam (-) ise + olarak , (+) isede - olarak getirsin)


yardimlariniz icin tesekkurler,

merhaba
-1 ile çarpmak yeterli olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox ActiveCell.Value * -1
End Sub

 

[canmexx]

tesekkurler..bir sorum daha olacak alt kisimda hazirladigim makroyu gonderiyorum.burda "TB " dosyasindan CASH bolumunden 10.kolondaki rakami (-1) ile carptirip , diger dosyadaki HYPERION.XLS dosyasina 'Cash on Hand satirina yapistirmasini istiyorum..alttaki sekilde makroyu yazdirdim basit sekilde.bu sekilde calisiyor ancak TB dosyasindaki rakami (-1) ile carptirip Hperion.xls dosyasina -1 li haliyle yapistirmak isimi dahada kolaylastiracak..
gonderdiginiz komutu hangi kisma eklemeliyim ??


Workbooks.Open Filename:="F:\priv\ortak\MIZAN\Macro\CCI\Tb.xls", UpdateLinks:=0
ActiveWindow.SmallScroll Down:=-15
Workbooks.Open Filename:="F:\priv\ortak\MIZAN\Macro\CCI\hyperion.xls", _
UpdateLinks:=0
Windows("tb.XLS").Activate
Sheets("TB").Select
Columns("C:C").Select
Selection.Find(What:="cash", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 10).Select
Selection.Copy
Windows("hyperion.XLS").Activate
Sheets("BalanceSheet").Select
Columns("A:A").Select
Selection.Find(What:="cash on Hand", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-3

End Sub

 

[canmexx]

merhaba
-1 ile çarpmak yeterli olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox ActiveCell.Value * -1
End Sub

tesekkurler..bir sorum daha olacak alt kisimda hazirladigim makroyu gonderiyorum.burda "TB " dosyasindan CASH bolumunden 10.kolondaki rakami (-1) ile carptirip , diger dosyadaki HYPERION.XLS dosyasina 'Cash on Hand satirina yapistirmasini istiyorum..alttaki sekilde makroyu yazdirdim basit sekilde.bu sekilde calisiyor ancak TB dosyasindaki rakami (-1) ile carptirip Hperion.xls dosyasina -1 li haliyle yapistirmak isimi dahada kolaylastiracak..
gonderdiginiz komutu hangi kisma eklemeliyim ??


Workbooks.Open Filename:="F:\priv\ortak\MIZAN\Macro\CCI\Tb.xls", UpdateLinks:=0
ActiveWindow.SmallScroll Down:=-15
Workbooks.Open Filename:="F:\priv\ortak\MIZAN\Macro\CCI\hyperion. xls", _
UpdateLinks:=0
Windows("tb.XLS").Activate
Sheets("TB").Select
Columns("C:C").Select
Selection.Find(What:="cash", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 10).Select
Selection.Copy
Windows("hyperion.XLS").Activate
Sheets("BalanceSheet").Select
Columns("A:A").Select
Selection.Find(What:="cash on Hand", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-3

End Sub