hücreye girilen değeri otomatik bölme???

[ayabenzer1]

arkadaşlar merhaba hücreye girilen veriyi otomatik olarak 60 a bölmek istiyorum. örnek: A1,A2,A3... hücrelerine alt alta değerler giricem ama bu hücrelere girilen değerlerin 60 a bölünmesini istiyorum.

yardımlarınız için şimdiden teşekkürler

 

[Orion1]

Merhaba.
Aşağıdaki formül işinizi görür.
=TOPLA(A:A)/60

 

[ayabenzer1]

sezar teşekkürler ama bu formul olmadı
makro yapmam gerek sanırım hücreye girdiğim değeri 60 a bölücek yani atıyorum hücreye 240 yazıp entera bastığımda o hücrede 4 yazacak.

 

[Recep İpek]

Evet dediğiniz gibi bu iş makro ile yapılabilinir.
Aşağıdaki kodları Thisworkbook bölümüne kopyalayınız.

Dim ilk As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("a1:a100")) Is Nothing Then Exit Sub
If ilk = Target Then Exit Sub
ilk = Target / 60
Target = ilk
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kodları çalışma sayfasının kod bölümüne yapıştırıp denermisiniz.:

Dim adrs As String, deger As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
adrs = Target.Address
deger = Target.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If adrs = "" Then Exit Sub
Range(adrs) = deger / 60
adrs = ""
End Sub

 

[ayabenzer1]

peki arkadaşlar mesela ben bir formul yazmışım işte örneğin A1 hücresine demişimki =B1+C1 mesela b1 ve c1 in toplamını a1 yazıcak bu ama oraya yazılan değeri otomatik altmışa bölebilirmiyim? çünkü ben c1 ve b1 değişken veriler giricem sonucuda a1 de görücem ama 60' bölünmüş halini görmek istiyorum?

 

[Recep İpek]

O zaman A12'deki hücreye şu şekilde bir formül yazabilirsiniz.

=(B1+C1)/60

 

[ayabenzer1]

ripek arkadaşım verdiğin kod çalıştı teşekkürler ancak bir şey daha sorucam verdiğin kodda a1:a100 hücreleri ok ancak b1:b100,c1:c100,d1:d100 .... diye yaklaşık bir otuz sütunda uygulamak istiyorum bunu nasıl yaparım?

 

[Recep İpek]

O zaman aşağıdaki değişikliği yapınız.

Dim ilk As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range[b][color=red]("a1:ad100")[/b][/color]) Is Nothing Then Exit Sub
If ilk = Target Then Exit Sub
ilk = Target / 60
Target = ilk
End Sub