• DİKKAT

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

Cinsine Göre Veriyi Yaz

  • Konbuyu başlatan Konbuyu başlatan ormann
  • Başlangıç tarihi Başlangıç tarihi
O

ormann

Katılım
9 Ekim 2009
Mesajlar
1,626
Excel Vers. ve Dili
türkçe
2003
İyi günler ekteki linkteki örnek dosyada veri sayfasından e33:e65 hücresinden yapraklı ağaç cinsini seçtiğim zaman J32:j37 hücresine yapraklı ağaç cinsini yazacak.Yine e33:e65 hücresinden ibreli ağaç cinsini seçtiğim zaman j38:j41 hücresine ibreli ağaç cinsini yazacak .Ağaç cinsleri cinsler sayfasında gösterilmiştir.Örneğin e33:e65 hücre aralığından kayını ne kadar seçersem seçim J32:j37 hücresine bir sefer yazacak.Bu işlem diğer ağaç cinsleri içinde aynı şekilde geçerlidir.Örnekte gösterilmiştir.Yardımlarınızı bekliyorum.Saygılar

http://dosya.co/3hgh4kevkocv/ÖRNEK-2.xls.html
 
Arkadaşlar.Rica etsem yardımcı olur musunuz ?
 
Arkadaşlar.Rica etsem yardımcı olur musunuz ?
 
Siz bunu rapor olarak mı kullanmak istiyorsunuz?
 
E33:E65 hücresinden yapraklı (cinsler sayfasında C3:C8) hücresinde) ağaç cinsini seçtiğimde J32:J37 hücresine yapraklı ağaç cinsini yazacak.Aynı cinsten tekrar ayın ağaç cinsinden seçilerse J3:J37 hücresine yazmayacak
 
çok teşekkür ederim.İlgi ve alakanız için.Yalnız bu benim işimi görmüyor.Benim dediğim gibi yapılsa işeme yarar
 
Merhaba.
Aşağıdaki kodu VERİ sayfasının kod bölümüne (önceki kodu silerek) ekleyip dener misiniz?
Kod: 
[FONT="Trebuchet MS"][COLOR="blue"]Private Sub [SIZE="2"]Worksheet_Change(ByVal Target As Range)[/COLOR]
If Intersect(Target, [E34:E65]) Is Nothing Then Exit Sub
On Error Resume Next
    Call [COLOR="Red"]LİSTE_BRN[/COLOR]
[/SIZE][COLOR="blue"]End Sub[/COLOR]

[COLOR="Red"]Sub LİSTE_BRN()[/COLOR]
[SIZE="2"]Range("J33:J42") = ""
For brn = 34 To 66
If Cells(brn, 5) = "" Then GoTo 10
    If WorksheetFunction.CountIf(Sheets("CİNSLER").Range("C3:C8"), Cells(brn, 5)) = 1 And _
        WorksheetFunction.CountIf(Range("J33:J38"), Cells(brn, 5)) = 0 Then
        Cells(WorksheetFunction.Max(Range("J39").End(3).Row + 1, 33), 10) = Cells(brn, 5)
    ElseIf WorksheetFunction.CountIf(Sheets("CİNSLER").Range("C9:C12"), Cells(brn, 5)) = 1 And _
        WorksheetFunction.CountIf(Range("J39:J42"), Cells(brn, 5)) = 0 Then
        Cells(WorksheetFunction.Max(Range("J43").End(3).Row + 1, 39), 10) = Cells(brn, 5)
    End If
10: Next[/SIZE]
[COLOR="Red"]End Sub[/COLOR][/FONT]
 
Son düzenleme:
Ömer bey kod gayet güzel çalışıyor.Yalnız İbreli ağaç cinsi J39:J42 hücre aralığında olması gerekirken J38 hücresinden başlıyor.Ayrıca Yapraklı Ağaç cinsini J33:J38 hücresi ile sınırlayabilir miyiz ?.Birde E34:E66 hücresinde hangi ağaç cinsini sildiğimiz zaman J33:J42 hücre aralığındaki ağaç cinside siline bilir mi?
 
Yani hem E ve hem de J sütunundaki işlemleri bir satır aşağı mı kaydırmak istiyorsunuz?
 
Yapraklı ağaç cinsi J33:J38 hücre aralığında olması gerekirken J32 den başlıyor.İbreli ağaç cinsi ise J39:J42 hücre aralığında olması gerekirken oda J38 den başlıyor.Ayrıca E34:E65 hücresinden veri sildiğim zaman J33:J42 hücresindeki veride silinmesi gerekiyor.
 
Merhaba.
8 numaralı cevaptaki KOD'u güncelledim, ilgili cevaba tekrar bakınız.
 
Ömer bey çok teşekkür ederim .Ellerinize sağlık
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst