koşullu veri almak

[erkandeveci]

Elimde buna benzer yaklaşık 6 bin civarında veri Yapmak istediğim soldaki verileri örneğin Segmente göre verileri başka sayfalara aktarmak isitiyorum bunu makro ya da formül ile nasıl yapabilirim makro da çok acemiiyiim detyalı anlatabirseniz çok sevinirim..

 

[Murat OSMA]

Şu kodları deneyiniz;

Sub SayfaAktar()
Dim i, j As Long, Sayfa As String, S1 As Worksheet
Set S1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
For j = 2 To Worksheets.Count
    Sheets(j).Cells.Delete Shift:=xlUp
Next j
For i = 2 To S1.[B65536].End(3).Row
    Sayfa = Cells(i, "B")
        If Not SayfaVarMi(Sayfa) Then
            Sheets.Add After:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = Sayfa
            S1.Select
        End If
    S1.Range("A1:D1").Copy Sheets(Sayfa).Range("A1")
    S1.Range("A" & i & ":D" & i).Copy Sheets(Sayfa).Range("A" & _
    Sheets(Sayfa).[A65536].End(3).Row + 1)
    Sheets(Sayfa).Range("A:D").EntireColumn.AutoFit
Next i
Set S1 = Nothing
Application.ScreenUpdating = True
End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[erkandeveci]

bu kodu nereye yazmam gerekiyor dosyayı eklerseniz çok sevinirim

 

[numan şamil]

bu kodu nereye yazmam gerekiyor dosyayı eklerseniz çok sevinirim

Murat bey yok galiba
Murat Beyin affına sığnarak
Kodları dosyanıza ekledim
Ekli dosyada sayfa1 deki butonu tıkla ve gözlemle

Kodların yazıldığı yere gelince:
Ekli dosyanın sayfa isimlerinin olduğu yere sağ tıkla
kod görüntüleye tıkla açılan pencereden sol tarafta modüle1çift tıkla

 

[erkandeveci]

çok teşekkür ederim ellerinize sağlık bir şey daha soracam peki bu dosyaarı aktarırken tutar sırasına göre de aktarım yapabilirmiyiz...

 

[erkandeveci]

kolay gelsin tekrar bir önceki dosyaya istinaden ekteki dosyayı da (Benim yapmak istediğim yukarıdaki listede F kolununa göre (segmente göre ) verileri diğer sayfalara aktarmak istiyorum ancak tüm verileri almak istemiyorum alacağım sütünlar şöyle olacak (A-B-C-D-E-F-Y-BE-BF-BH-BL)Sütunlarını alıp BF sütununa göre yani tutara öre sıralama yapıp çalışma sayfalarına atmak isitiyorum bunu nasıl yapabilirim? Şimdiden çok teşekkür ederim...)kriterler göre aktarım yapabilirmiyim..

 

[Deyeexzist]

Merhaba,
örnek olarak c sütununda bulunan 2bin satırı aşkın farklı hücre içerisindeki cümleler ya da kelimeler arasındaki exem yazısını bulduğumuzda yan hücreye bu yazıyı exemple olarak taşınmasını nasıl sağlayabiliriz...

dexem = exemple
exematik = exemple
exem atlantik = exemple
artistik exem patinaj = exemple

olarak nasıl ayrıştırabiliriz...
Bir kelimeyi değiştir komutuyla yapabiliriz elbette ama bu komut yalnızca hücre içindeki exem kelimesini değiştirecektir. biz exem'i gördüğü her hücreyi bütün ile yana farklı olarak taşımak niyetindeyiz...

son olarak bu komutu yalnızca bir kelime için değil de başka kelimeler için de yapabilir miyiz...
yani aynı c sütunu içerisinde 2bin satıra belirliş kelimeleri tanımlayıp bu dizinde bulacağı bütün girilmiş kelimeleri yan hücrelerine gene girilen ve görüntülenmesi istenen yeni - eş kelimeler olarak nasıl atatabiliriz...

umarım çok karıştırmadan anlatabilmişimdir...
olasık dahilinde midir?
saygılarımla