Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 8 sonuçtan 1 ile 8 arasındakiler gösteriliyor.

Konu: kod oluşturma

  1. #1
    Üye
    Üyelik tarihi
    Dec 2013
    Mesajlar
    59

    kod oluşturma

    merhaba
    excellde L5:L37 arasında bulunan satıra 11 yazdımmı aynı satıra yakıt gideri yazmasını 12 yazarsam yemek gideri yazmasını istiyorum acaba mümkünmüdür böyle birşey yada buna benzer birsey
    teşekkürler

  2. #2
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    686
    Alıntı kastelliengin Nickli Üyeden Alıntı Mesajı göster
    merhaba
    excellde L5:L37 arasında bulunan satıra 11 yazdımmı aynı satıra yakıt gideri yazmasını 12 yazarsam yemek gideri yazmasını istiyorum acaba mümkünmüdür böyle birşey yada buna benzer birsey
    teşekkürler
    Sayfanın kod modülüne aşğıdaki kodu giriniz.
    Dosyayı aşağıdaki linkten indirebilirsiniz.

    DOSYAYI İNDİR


    Kod:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [L5:L37]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = 11 Then Target.Value = "yakıt gideri"
    If Target.Value = 12 Then Target.Value = "yemek gideri"
    Application.EnableEvents = True
    End Sub

  3. #3
    Üye
    Üyelik tarihi
    Dec 2013
    Mesajlar
    59
    teşekkürler
    L5:L37 yanı sıra P5:P37 de aynısı yapmak ıstesek nasıl olur.

  4. #4
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    686
    Alıntı kastelliengin Nickli Üyeden Alıntı Mesajı göster
    teşekkürler
    L5:L37 yanı sıra P5:P37 de aynısı yapmak ıstesek nasıl olur.
    aşağıdaki satırı ilgili satırla değiştiriniz.
    Kod:
    If Intersect(Target, [L5:L37,P5:P37]) Is Nothing Then Exit Sub

  5. #5
    Üye
    Üyelik tarihi
    Dec 2013
    Mesajlar
    59
    süpersiniz ilgi ve alakanız için teşekkür ederim.
    kodu biraz modifiye etmeye çalıştım lakim excell de fazla bilgim yok sizlerin yardımı ile bir şeyler yapmaya çalışıyorum.
    aynı kod içerisine aşağıdaki gibi bir şey uyarlaya bilirsek süper olacak.
    If Intersect(Target, [C5:C37,G5:G37,K5:K37,O5:O37,S5:S37,W5:W37]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = 1 Then Target.Value = "01.01.2016"
    If Target.Value = 2 Then Target.Value = "02.01.2016"
    If Target.Value = 3 Then Target.Value = "03.01.2016"

    teşekkürler...

  6. #6
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    686
    Kod:
    If Target.Value = 1 Then Target.Value = "01.01.2016"
    If Target.Value = 2 Then Target.Value = "02.01.2016"
    If Target.Value = 3 Then Target.Value = "03.01.2016"
    Yukarıdaki kodları silin.
    Aşağıdaki kodları yazın.

    Kod:
    On Error Resume Next
    Target.Value = DateSerial(Year(Date), 1, Target.Value)

  7. #7
    Üye
    Üyelik tarihi
    Dec 2013
    Mesajlar
    59
    sayın orion 1 beceremedim ben bir el atsanız şu işe teşekkürler...



    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [L5:L37,P5:P37]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = 11 Then Target.Value = "DENTUR DOLUM"
    If Target.Value = 12 Then Target.Value = "SERVİS GİDERİ"
    If Target.Value = 13 Then Target.Value = "YEMEK GİDERİ"
    If Target.Value = 14 Then Target.Value = "YAKIT GİDERİ"
    If Target.Value = 15 Then Target.Value = "ÇEŞİTLİ GİDERLER"
    If Target.Value = 16 Then Target.Value = "ALTINKUMLAR"
    If Target.Value = 17 Then Target.Value = "GM ELEKTRİK"
    If Target.Value = 18 Then Target.Value = "ÖZ MARMARA"
    If Target.Value = 19 Then Target.Value = "WELDOTEC"
    If Target.Value = 20 Then Target.Value = "MAKİNA DEMİRBAŞ"
    Application.EnableEvents = True
    End Sub
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C5:C37,G5:G37,K5:K37,O5:O37,S5:S37,W5:W37]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Value = 1 Then Target.Value = "01.01.2016"
    If Target.Value = 2 Then Target.Value = "02.01.2016"
    If Target.Value = 3 Then Target.Value = "03.01.2016"
    If Target.Value = 4 Then Target.Value = "04.01.2016"
    If Target.Value = 5 Then Target.Value = "05.01.2016"
    If Target.Value = 6 Then Target.Value = "06.01.2016"
    If Target.Value = 7 Then Target.Value = "07.01.2016"
    If Target.Value = 8 Then Target.Value = "08.01.2016"
    If Target.Value = 9 Then Target.Value = "09.01.2016"
    If Target.Value = 10 Then Target.Value = "10.01.2016"
    Application.EnableEvents = True
    End Sub

  8. #8
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    686
    2 tane olamaz.

    Kod:
    Private Sub Worksheet_Change(ByVal Target As Range)

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •