hücrenin kendisi ile çarpma

Katılım
25 Ocak 2006
Mesajlar
764
Excel Vers. ve Dili
2019 tr
bir sütunda alt alta yazdığım değerleri, sonradan aklıma geldiği için bir hücre ile çarpmak istiyorum fakat değer olarak değilde hücrenin kendisi ile. yani şöyle a1 hücresinde 10 değeri var ve ben bunu c1 hücresi ile çarpmak istiyorum ki aşağı doğru da aynı işlemleri yapayım, tabi bir yolu varsa. sonuç olarak "=10*C1" gibi bir formül olacak, aşağı doğru da c2, c3 ile çarpacak ve =20*c2 , =15*c3 gibi formüller oluşacak. yok olmadı tek tek uğraşacağım :( çarptığım hücredeki sayı değişebileceği için bu formülü bulmam gerekiyor. özel yapıştır gibi olacak ama değerle değilde hücreyle çarpacak.
 
Son düzenleme:

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Tek bir değerle bütün sütündaki değerleri çarpmak isterseniz:
Örnek :
A1 den A100'e kadar sayılar ve C1 de çarpma yapması gereken sayı olsun.
C1 hücresini koplayayın.
A1den A100 e kadar alanı seçin , seçili iken "özel yapıştır" ile "çarp" seçeneğini kullanın .
Sonuçları kontrol edin.


Hepsini yanındaki C sütünu değeriyle çarptırmak isterseniz:
Başka bir sütunda, örnek: N sütununda =A1*C1 yazıp a sütünunundaki satırlar kadar aşağıya kadar kopyalayıp yapıştırın.
Sonra, N sütununda bulunan bütün satırları seçip "Kes" yapın,
A sütununa "özel yapıştır"/""değerler" olarak yapıştırın.
 
Katılım
25 Ocak 2006
Mesajlar
764
Excel Vers. ve Dili
2019 tr

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Tamam. Daha iyi olur.
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
Merhaba @firatgunay,

Sorunuzu anladığım kadarıyla A sütunundaki değer ile C sütunundaki değerleri çarpmak istiyorsunuz. A sütununda 10,20,15 gibi değerler mevcut.
Sonucu nereye yazacaksınız? A ve C sütunları haricinde bir yere yazacaksanız 1.Satır için =A1*C1 demeniz yeterli. Formülü yazdıktan sonra hücre kulpundan tutup aşağı doğru çekerek çoğaltınız.

Soruyu yanlış anladıysam Düzeltiniz.

iyi çalışmalar.
 
Katılım
25 Ocak 2006
Mesajlar
764
Excel Vers. ve Dili
2019 tr
Merhaba @firatgunay,

Sorunuzu anladığım kadarıyla A sütunundaki değer ile C sütunundaki değerleri çarpmak istiyorsunuz. A sütununda 10,20,15 gibi değerler mevcut.
Sonucu nereye yazacaksınız? A ve C sütunları haricinde bir yere yazacaksanız 1.Satır için =A1*C1 demeniz yeterli. Formülü yazdıktan sonra hücre kulpundan tutup aşağı doğru çekerek çoğaltınız.

Soruyu yanlış anladıysam Düzeltiniz.

iyi çalışmalar.
A sütunundaki değer kalacak ama aynı hücre içerisine bir şekilde ="a1 değeri"*c1 formülüne dönüşecek ve bu aynı hücre içerisinde olacak. sorunumu başka hücrelerde işlem yaparak çözdüm ama ayrı bir yerde fazladan 2 sütunum oldu. çözüm varsa yine de öğrenmek isterim. herkese teşekkürler
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Deneyiniz.

"A" sütunundaki değerleri "C" sütunundaki değerler ile çarpar. Siz kod içindeki bölümleri kendinize uyarlarsınız.

Kod:
Sub Formul_Yaz()
    Dim Veri As Range, Satir As Integer, Sayi As String
   
    Satir = 1
   
    Son = Cells(Rows.Count, 1).End(3).Row
   
    For Each Veri In Range("A1:A" & Son)
        If Veri.Value <> "" Then
            If IsNumeric(Veri.Value) Then
                Sayi = Replace(Split(Veri.Formula, "*")(0), "=", "")
                Veri.Formula = "=" & Sayi & "*C" & Satir
                Satir = Satir + 1
            End If
        End If
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Katılım
25 Ocak 2006
Mesajlar
764
Excel Vers. ve Dili
2019 tr
Merhaba,

Deneyiniz.

"A" sütunundaki değerleri "C" sütunundaki değerler ile çarpar. Siz kod içindeki bölümleri kendinize uyarlarsınız.

Kod:
Sub Formul_Yaz()
    Dim Veri As Range, Satir As Integer, Sayi As String
 
    Satir = 1
 
    Son = Cells(Rows.Count, 1).End(3).Row
 
    For Each Veri In Range("A1:A" & Son)
        If Veri.Value <> "" Then
            If IsNumeric(Veri.Value) Then
                Sayi = Replace(Split(Veri.Formula, "*")(0), "=", "")
                Veri.Formula = "=" & Sayi & "*C" & Satir
                Satir = Satir + 1
            End If
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
merhaba. hafta sonu uğraşmama rağmen ya ben kendime uyarlayamadım ya da olmadı. örnek olarak H15 den H23 e kadar olanları ve I15 den I23 e kadar olanları, karşılıkları olan AK daki hücreler ile çarptırmak istiyorum. bunun için nasıl düzenlemem gerekir. teşekkürler

şimdi tekrar inceleyince anladım ki, size bahsederken sürekli bir durum varmış gibi anlattım. oysaki ben H6:H9 aralığı h15:h23 aralığı gibi kendim yazarak yapmam gerekli. aynısını I sütununda I6:I9, I15:I23 gibi yapmalıyım. yani sizin yazdığınız makro kesinlikle doğru. ben hallederim nasılsa diye size farklı anlatmışım gibi oldu.
 
Son düzenleme:

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,104
Excel Vers. ve Dili
Excel, 365 - İngilizce
Bir örnek dosya ekleyin. Daha hızlı çözüm bulunur.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Tebrikler. Kodu kendinize göre uyarlamayı başarmışsınız.

Bir hatırlatmada bulunmak istiyorum. Bizler üyelerimizin öğrenme gayretlerini gayet iyi anlıyoruz ve gözlemliyoruz.

Fakat çoğu zaman vakit darlığından sorulara sürekli vakit ayıramıyoruz. Bu sebeple örnek dosyaların birebir asıl dosyanızla aynı şekilde olmasını talep ediyoruz. Sadece sizleri zora sokabilecek tarzda verileriniz varsa bunları dosya içinde değiştirdikten sonra foruma eklemenizi öneriyoruz.

İyi forumlar...
 
Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
bir sütunda alt alta yazdığım değerleri, sonradan aklıma geldiği için bir hücre ile çarpmak istiyorum fakat değer olarak değilde hücrenin kendisi ile. sonuç olarak "=10*C1" gibi bir formül olacak

Çözüm bulunmuş ama alternatif olarak cevap vermek istiyorum. Eğer doğru anladıysam istediğin formül aşağıda.
Kod:
 =A1&"*"& C1
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Merhaba.

Sanıyorum bu işlem için makroya gerek yok.
-- İlk veri alanını seçip kopyalayın, sonuç alınacak hücre aralığına DEĞER olarak yapıştırın.
-- Ardından da bunlarla çarpılacak değerlerin bulunduğu alanı kopyalayıp, bir önceki aşamada ilk değerleri yapıştırdığınız alanı seçip
ÖZEL YAPIŞTIR=>ÇARP'ı işarteleyip TAMAMa tıklayın.
Ben bu şekiyre sonuç aldım.

Sayın @recepkull belirttiğiniz şekilde işlem yapılırsa sonuç =5*7 gibi bir METİN olur, istenilen çarpma işlemi gerçekleşmez.
.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ömer Bey,

Üyemiz ilk mesajında aşağıdaki açıklamayı yapmış. Bu sebeple makro ile çözüm önerdim. ;)

çarptığım hücredeki sayı değişebileceği için bu formülü bulmam gerekiyor. özel yapıştır gibi olacak ama değerle değilde hücreyle çarpacak.
 
Üst