Excel Arama

[musti_99]

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]

Merhaba

Ekli dosyayı inceleyiniz.

 

[xxcell]

Sayın Zafer cevap vermiş, madem hazırladık bizimkide alternatif olsun.
Tabloda Seçimi aratma konusunda faydalı bir örnek oldu.

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

 

[musti_99]

olmadi

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