hücrenin kendisi ile çarpma

[euphrates55]

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.

 

[turist]

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.

 

[euphrates55]

olmuyor.

 

[turist]

Sorunuzu "örnek bir excel dosyası" ile sorsanız, belki daha kolay ve hızlı sonuç alabilirsiniz.
Örnek excel dosyası eklemek hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/

 

[euphrates55]

Sorunuzu "örnek bir excel dosyası" ile sorsanız, belki daha kolay ve hızlı sonuç alabilirsiniz.
Örnek excel dosyası eklemek hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/

İş yerinde hiç bir yere upload yapamıyorum maalesef. akşama evden atabilirim. o yüzden yazarak anlatmaya çalıştım.

 

[turist]

Tamam. Daha iyi olur.

 

[netzone]

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.

 

[euphrates55]

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]

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.

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

 

[euphrates55]

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.

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.

 

[Merhum İdris SERDAR]

Bir örnek dosya ekleyin. Daha hızlı çözüm bulunur.

 

[euphrates55]

herkese teşekkürler, Korhan Beyin makrosunu kendime uyarlayarak yaptım.

 

[Korhan Ayhan]

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...

 

[recepkull]

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.

 =A1&"*"& C1

 

[Ömer BARAN]

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]

Ö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.