Excel Arama

Katılım
20 Şubat 2007
Mesajlar
15
Excel Vers. ve Dili
2000
excel de satri ve sutunlar soyle

A B C
1- ADI= MUSTAFA
2- SOYADI=UCAR
3-NOTLARI=25,35,45
4- -------
5-ADI=ALI
6-SOAYDI=TURAN
7-NOTU=48,52,58
8-
9
10-ADI=KEMAL
11-SOYADI=DINCER
12=NOTU=95,52,95


ORNEK OLARAK YUKARDAKI SADECE A SUTUNU DOLUDUR,, BOYLE
YUZLERCE KAYIT VARDIR...SABIT OLAN ADI= SOYADI= NOTLARI= BUNLAR SABIT AMA BELLI ARALIKLA DEGIL...MESELA ADI 1.SATIRDA VAR 5.SATIRDA VAR YANI BELLI BI ARITMETIKLE GITMIYOO

2.SHHET SU SEKILDE OLACAK

A B C

1-MUSTAFA UCAR 25
2-MUSTAFA UCAR 35
3-MUSTAFA UCAR 45
4-ALI TURAN 48
5-ALI TURAN 52
6-ALI TURAN 58

YANI ILK ADI= OLANI BULACAK VE ILK NOTU OLANI BULACAK == ADI YAZACAK NOT KAC TANE VARSA ONLARI ALT ALTA YAZACAK,,,ANLATABILDIMMI BILMIYORUM?
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Ekli dosyayı inceleyiniz.
 
Katılım
25 Nisan 2007
Mesajlar
459
Excel Vers. ve Dili
2007
Sayın Zafer cevap vermiş, madem hazırladık bizimkide alternatif olsun.
Tabloda Seçimi aratma konusunda faydalı bir örnek oldu.

Kod:
Sub derle()

Set Sayfa_1 = Sheets(1)
Set sayfa_2 = Sheets(2)

sayfa_2.Cells.ClearContents

With Sayfa_1.Range("a1:a50")
    Set c = .Find("ADI=")
    If Not c Is Nothing Then
       ilkadres = c.Address
        Do
            If Mid(c, 1, 3) = "ADI" Then
            satir_no = sayfa_2.[a65535].End(xlUp).Row
            sayfa_2.Cells(satir_no + 1, 1) = LTrim(Replace(c, "ADI=", ""))
            sayfa_2.Cells(satir_no + 1, 2) = LTrim(Replace(c.Offset(1, 0), "SOYADI=", ""))
            sut = 3
            veri = Replace(UCase(c.Offset(2, 0)), "NOTLARI=", "")
            veri = Replace(UCase(veri), "NOTU=", "") & ","
            n = 0
            Do While Len(veri) > 0
                    n = n + 1
                    If Mid(veri, n, 1) = "," Then
                    sayfa_2.Cells(satir_no + 1, sut) = Mid(veri, 1, n - 1)
                    veri = Mid(veri, n + 1, Len(veri))
                    n = 0
                        sut = sut + 1
                    End If
            Loop
            End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
End With
End Sub
 
Katılım
20 Şubat 2007
Mesajlar
15
Excel Vers. ve Dili
2000
olmadi

zafer bey cok tesekkurler xxcell bey sizde sagolun...ama sizin kodlari donusturemedim ekteki dosyaya bi bakabilirmisiniz icinde hic kod yok sadece aciklama tesekkurler
 
Üst