• DİKKAT

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

liste oluşturmak

Katılım
8 Şubat 2012
Mesajlar
8
Excel Vers. ve Dili
excel 2007 türkçe
merhaba arkadaşlar bira yardıma ihtiyacım var, bir liste yapmaya çalışıyorum
eğer ve düşeyara frmüllerini kullandım ama bir türlü becelemedim
formulü yazdığımda birden fazla veri içieriyor bu formül uygun değil mesajı çıkıyor
yardımlarını bekliyorum
 

Ekli dosyalar

Örnek dosyanız hatalıdır.. Siz ögretmenmisiniz acaba ?
 
merhaba arkadaşım
hayır ben öğretmen değilim, bir arkadaşa liste oluşturmaya çalışıyorum
ama excell yeni olduğumdan tam olarak formuleri yapamıyorum
düşeyara formulü ile yapmaya çalıştım ama olmadı

listeyi örnek olsun diye ufak yaptım normalde 15 öğretmen ve 250 öğrenci var
öğretmenleri ders verdiği öğrenci listesini oluşturmaya çalışyorum
bir öğretmen tek bir branş da ders verse onu çözerdim de , branşları farklı olduğunda yapamadım
 
Özet tablo ile bir deneyin

merhaba arkadaşım
hayır ben öğretmen değilim, bir arkadaşa liste oluşturmaya çalışıyorum
ama excell yeni olduğumdan tam olarak formuleri yapamıyorum
düşeyara formulü ile yapmaya çalıştım ama olmadı

listeyi örnek olsun diye ufak yaptım normalde 15 öğretmen ve 250 öğrenci var
öğretmenleri ders verdiği öğrenci listesini oluşturmaya çalışyorum
bir öğretmen tek bir branş da ders verse onu çözerdim de , branşları farklı olduğunda yapamadım

Ek i bir inceleyin bu mantıkta çok daha basit bir şekilde yapabilirsiniz bence
 

Ekli dosyalar

Merhaba.
Eğer makrolu çözüm isterseniz, dosyayı inceleyiniz.

Sub Dağıt()
Dim i, sat As Integer
Dim süt, hoca, kac, j As Byte

Application.ScreenUpdating = False

Range("R3:Z100") = ""

For i = 3 To Range("E1000").End(3).Row
süt = WorksheetFunction.CountA(Range("F" & i & ":Q" & i)) + 5
For j = 6 To süt
hoca = WorksheetFunction.VLookup(Cells(i, j), Range("B3:C50"), 2, 0)
kac = WorksheetFunction.Match(hoca, Range("R2:Z2"), 0) + 17
sat = Cells(100, kac).End(3).Row + 1
Cells(sat, kac) = Cells(i, 5)
Next j
Next i
ActiveWindow.ScrollColumn = 17
End Sub
 

Ekli dosyalar

Merhaba;
Alternatif olsun.
1-Öncelikle verilerinizi yazarken doğru yazın. (kiya?,geometre..ve arkasına eklediğiniz boş karakterler) Bu tür veriyi bulamazsınız.
2-öğretmen ve öğrenci sayınız daha genişleyecekse örneğinizi neden dar bir alana sıkıştırdınız.
Bu uyarıları düşünerek örneği inceleyin. Örnek uygun değilse kendi dosyanıza adapte edin.
İyi çalışmalar.
 

Ekli dosyalar

sayıın muygun, muokumuş ve mgurten hepinize ayrı ayrı teşekür ederim
ellerinize sağlık çok sağlun
 
Geri
Üst