• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Yazılan bir rakamın yandaki hücresinin yanına otomatikman rakam gelmesi

Katılım
11 Ocak 2008
Mesajlar
1,395
Excel Vers. ve Dili
Office 365 (Türkçe)
herhangii bir hücreye 15,63 yazılınca yanındaki hücreye 0,13 yazması
herhangii bir hücreye 14,21 yazılınca yanındaki hücreye 0,12 yazması
herhangii bir hücreye 19,89 yazılınca yanındaki hücreye 0,17 yazması
nasıl yapılabilir.
örnek dosya ekte.
 

Ekli dosyalar

merhaba
bu rakamları neye göre hesaplıyorsunuz
yoksa kendinizin belirlediği rakamlar ise eğer formülü ile yapılabilir
 
Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. Kod tüm sayfada geçerlidir.

Kod:
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Target <> "" Then
        Select Case Target
            Case Is = 15.63
                Target.Next = 0.13
            Case Is = 14.21
                Target.Next = 0.12
            Case Is = 19.89
                Target.Next = 0.17
        End Select
    Else
        Target.Next.ClearContents
    End If
Son:
End Sub
 
Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. Kod tüm sayfada geçerlidir.

Kod:
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Target <> "" Then
        Select Case Target
            Case Is = 15.63
                Target.Next = 0.13
            Case Is = 14.21
                Target.Next = 0.12
            Case Is = 19.89
                Target.Next = 0.17
        End Select
    Else
        Target.Next.ClearContents
    End If
Son:
End Sub
Slm.
Sayfanın thisworkkbook bölümüne ekledim. bahsettiğiniz yukarıdaki kodu
amA olmadı.
Nasıl yapabilirim ,üstadım
 
merhaba
bu rakamları neye göre hesaplıyorsunuz
yoksa kendinizin belirlediği rakamlar ise eğer formülü ile yapılabilir
Bu rakamlar basketbol maçları hakem ulusal, masa, il hakemleri yazılan 16,63 gibi ücretler net tutardır. benim de istediğim bunun karşılığı olan damga pulu ücreti yan , 15,63 yazılınca yanındaki sağındaki hücreyee dama pulu ücretini yazması.
 
Bu rakamlar basketbol maçları hakem ulusal, masa, il hakemleri yazılan 16,63 gibi ücretler net tutardır. benim de istediğim bunun karşılığı olan damga pulu ücreti yan , 15,63 yazılınca yanındaki sağındaki hücreyee dama pulu ücretini yazması.

merhaba
buda formül ile yapılan basit ama formülü istediğiniz kadar çoğaltmalısınız
b2 hücresine
Kod:
=EĞER(A2=15,63;0,13;EĞER(A2=14,21;0,12;EĞER(A2=19,89;0,17;"")))
bu formülü yazıp aşağıya doğru çekiniz
örnek dosyayı inceleyiniz
formüller 100 satır'a kadar çoğaltılmıştır
 

Ekli dosyalar

Slm.
Sayfanın thisworkkbook bölümüne ekledim. bahsettiğiniz yukarıdaki kodu
amA olmadı.
Nasıl yapabilirim ,üstadım

Merhaba,

Sayın Korhan Ayhan ;

" Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz. Kod tüm sayfada geçerlidir "
demiş ama siz kodu, ilgili sayfa yerine ThisWorkbook'a almışsınız, kodu işlem yapacağınız sayfanın kod bölümüne almalısınız.
 
Merhaba,

Bende buna benzer bir çözüm rica ediyorum. Benim istediğim şu:
Ciro Hedefi yazılı sabit bir hücre var yanında yapılan reel ciro yazıyor. Ben ise hedef ciro ile yapılanı karşılaştırsın buna göre hedefin altında ise reel ciroyu kırmızı renklendirsin; hedef tuttu ise reel ciroyu sarı renklendirsin hedefi geçti ise reel ciroyu yeşil renklendirsin istiyorum bunu nasıl yapabilirim? yardımcı olursanız çok sevinirim.
 
Merhaba,

Bende buna benzer bir çözüm rica ediyorum. Benim istediğim şu:
Ciro Hedefi yazılı sabit bir hücre var yanında yapılan reel ciro yazıyor. Ben ise hedef ciro ile yapılanı karşılaştırsın buna göre hedefin altında ise reel ciroyu kırmızı renklendirsin; hedef tuttu ise reel ciroyu sarı renklendirsin hedefi geçti ise reel ciroyu yeşil renklendirsin istiyorum bunu nasıl yapabilirim? yardımcı olursanız çok sevinirim.

merhaba
sorunuzu yeni bir konu açarak sorarsanız daha iyi olur çünkü sizin istediğiniz koşullu biçimlendirme ile yapılacak bir işlem gibi geldi bana
 
Geri
Üst