• DİKKAT

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

Sütun içindeki veriyi bulup iki yan sütündan işlem yapmak

A

aliballi

Katılım
28 Eylül 2006
Mesajlar
37
Excel Vers. ve Dili
excel-2007 Türkçe
ARKADAŞLAR EKTE RESİMDE ANLATMAYA ÇALIŞTIM AMA,
elimde muhasebe programından aktardığım bir çalışma var
bu çalışmada aşağıdaki işlemlere ihtiyacım olacak

"J" SÜTUNUNUN İÇİNDEN "191.01" BULUNARAK
BULUNAN SATIRIN İKİ SÜTUN YANINDAKİ (L SÜTUNU) DEĞER,
BİR ALT SATIRIN "M" SÜTUNUDAKİ DEĞERDEN ÇIKARTILARAK
İLK BULUNAN "191.01" DEĞERİNİN BİR YAN SÜTUNUNA YANİ "K" SÜTUNUNA
YAZILACAK
bu bütün 191.01 , 191.02 , 191.03 ler için gerekli ve her 191.01 için aynı işlem yapılacak
ACABA NASIL BİR MAKRO GEREKİYOR..

YARDIMCI OLURSANIZ ÇOK SEVİNİRİM

ŞİMDİDEN TEŞEKKÜRLER..

Örnek Dosyayı ekledim. bir de f sütununu makroyla komple silmek istiyorum
yani bunların hepsini tek bir butonla tek tıklamada yapan bir makro gerekiyor

yardımcı olusanız sevinirim..
 

Ekli dosyalar

Son düzenleme:
Sayın Aliballi,
resim yerine örnek dosya gönderseydiniz daha iyi olurdu. Resmini yolladığınız dosyanın K2 hücresine

=EĞER(PARÇAAL($J2;1;3)="191";-($M3-$L2);"") yazıp, hücreyi aşağı doğru istediğiniz kadar çoğaltınız.
 
ergunguler76@' Alıntı:
Sayın Aliballi,
resim yerine örnek dosya gönderseydiniz daha iyi olurdu. Resmini yolladığınız dosyanın K2 hücresine

=EĞER(PARÇAAL($J2;1;3)="191";-($M3-$L2);"") yazıp, hücreyi aşağı doğru istediğiniz kadar çoğaltınız.
Genişletmek için tıkla ...

örnek dosyayı ekledim. sizin yazığınız formülle de sonuç aldım çok teşekkür ederim. bir de tabloda herhangi bir sütünu silme yi de ekleyip bir buton aracılığıyla bunu yapabilirmiyiz. bilgileri başka sayfaya aktarabilir.

yardımlarınız için teşekkürler..
 
Merhaba,
Sayfa2'de belirttiğim turuncu alana bulmak istediğiniz değeri yazıp butona basın.
Kod: 
Sub Bul_Hesapla()
Set s1 = Sheets("Sayfa1")
Set Aralik = s1.Range("j2:j" & s1.[j65536].End(3).Row)
    Set Bul = Aralik.Find([a2].Text, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
    Application.ScreenUpdating = False
        Adres = Bul.Address
        Do
        deg = CDbl(s1.Cells(Bul.Row + 1, "m")) - CDbl(s1.Cells(Bul.Row, "l"))
        s1.Cells(Bul.Row, "k") = deg
        Set Bul = Aralik.FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    MsgBox "İşlem tamam.", vbInformation, "leumruk"
    End If
End Sub
NOT: F sütununu silmek için [Sayfa1!f2:f65536].Clearcontents satırını kullanabilirsiniz.
 

Ekli dosyalar

Sayın leumruk,

Ellerinize sağlık , çok teşekkür ederim..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst