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 3 sonutan 1 ile 3 arasndakiler gsteriliyor.

Konu: Satr boyunca belli hcreleri kurala gre temizleme

  1. #1
    Kdemli ye
    yelik tarihi
    Mar 2011
    Nereden
    stanbul
    Versiyon
    Excel 2010 Trke
    Mesajlar
    107

    Satr boyunca belli hcreleri kurala gre temizleme

    Merhaba Arkadalar

    Benim sorunum ksaca yle maazalarmza gndereceimi rnler iin bir datm tablomuz var bu tabloda stunlarda maazalar satrlardada rnler var. rnn bulunduu satrda her maazaya gndermem gereken adetler yazl ama bizim depomuzdada baz durumlarda gerekli envanter bulunmad iin aradaki fark kadar rn maazalardan silmem gerekiyor. Mail ekine koyduum dosyada rnek mevcut. Ksaca bir rnek vermem gerekirse 2. satrda bulunan rnden 150 maazaya 9 adet rn gndermem gerekiyor L2:FI2 aralnda hangi maazaya ka tane gndermem gerekiyor tek tek yazl ama o rnden depoda 5 tane var benim 4 adet rn maazalardan silmem gerekiyor. Nasl silelim derseniz FI stunundan L stununa doru yani sondan baa doru silmek istiyorum.

    imdiden herkeze ok teekkr eder almalarnzda baarlar dilerim.

    Kenan Tunay


  2. #2
    Kdemli ye
    yelik tarihi
    Mar 2011
    Nereden
    stanbul
    Versiyon
    Excel 2010 Trke
    Mesajlar
    107
    Merhaba arkadalar

    En azndan bana biraz akl verebilirmisiniz nasl bir mantk kullanaym bir trl akl yrtemedim.

  3. #3
    Kdemli ye
    yelik tarihi
    Mar 2011
    Nereden
    stanbul
    Versiyon
    Excel 2010 Trke
    Mesajlar
    107
    Sub calisma()
    ken = Sheets("Sat Kalan").Range("AE1").Value 'satr says
    zen = Sheets("Sat Kalan").Range("AC1").Value 'stun says
    For k = 2 To ken
    If Cells(k, 3) = "MANUEL" Then
    y = zen
    Do While Cells(k, 4) > Cells(k, 10)
    If Cells(k, y) > 0 Then
    Cells(k, 4) = Cells(k, 4) - Cells(k, y)
    Cells(k, y) = 0
    Cells(k, 3) = "OK"
    End If
    y = y - 1
    Loop
    End If
    Next k


    End Sub

    Merhaba dostlarm

    Ben uzun uralar sonucu kendim problemi mi atm. lgilenenler iinde kodlar yukarda veriyorum.

    Teekkrler
    yi almalar

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •