bir sütundaki tüm sayıları çarpma

[Z3U519]

Arkadaşlar bir sütuna hangi değeri girersem excelde otomatik bir sayıyla çarpmasını nasıl ayarlayabilirim? Mesela a1 hücresine boşken bir sayı girdiğimde otomatikmen 5 ile çarpması gibi?

 

[YUSUF44]

Nasıl olacak yani; diyelim ki A1'e 3 yazacaksınız, 5'le çarpımı olan 15 nereye yazılacak?

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    
    On Error GoTo Son
    
    Application.EnableEvents = False
    With Target
        .Value = .Value * 5
    End With
    Application.EnableEvents = True
Son:
       
End Sub

.

 

[uzmanamele]

Merhaba

Ek dosyada A sütununa veri girerek deneyiniz.
G2 hücredeki sabit çarpan ile sayıyı çarpacaktır.
İsterseniz G2 hücreyi iptal edip çarpanı kod içine yazabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
If IsNumeric(Target) Then
Application.EnableEvents = False
Target = Target * [g2]
Application.EnableEvents = True
End If
End Sub

 

[Z3U519]

a1'e 3 yazdığımda otomatik 15 olarak tekrar a1 yazacak şekilde istiyorum ama makrosuz mümkün değil mi formülle felan?

 

[Z3U519]

Aslında tam olarak istediğim şey a1 hücresine =çarpım(A1*5) gibi bir formül yazıp formülü aşağı doğru sürüklemek ama a1 yazınca kabul etmiyor girilen herhangi bir sayı için formüle ne yazmam gerekiyor onu bulamadım.

 

[Ömer]

Bir hücreye hem formül hemde üzerine başka veri giremezsiniz. Son girdiğiniz geçerli olur. Bu yüzden bu gibi durumlar da makro kullanmanız gerekir.

 

[Z3U519]

Anladım teşekkür ederim herkese.

 

[Necdet]

Merhaba,

Ek bilgi, belki işinize yarayabilir.

Başka bir hücreye çarpmak istediğiniz değeri giriniz
bu hücreyi kopyalayınız
Çarpmak istediğiniz hücreleri seçiniz
Özel yapıştır - İşlem --> Çarp
tamam

 

[Z3U519]

Necdet Bey çok teşekkürler işimi gördü