Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: tahsin33 - 19 Eylül 2013, 14:49:28

Başlık: sayfadan 1 de sayfa 2 koşullu aktarma
Gönderen: tahsin33 - 19 Eylül 2013, 14:49:28

merhaba bir excel dosyam var burada yapmak istediğim  command buton koyuyorum bu butona bastığımda sayfa 1 bulunan bazı hücreleri sayfa 2 ye aktarma. Fakat hepsini değil sadece karşısında E harfi yazanları sayfa 2 aktarmak istiyorum. Sayfa 2 ye aktardığında da hücrelere alt alta gelecek şekilde olmasını istiyorum. Yardımlarınızı bekliyorum. çalışmamım bir kopyasını ekli dosya olarak koyuyorum.

Başlık: Ynt: sayfadan 1 de sayfa 2 koşullu aktarma
Gönderen: Orion1 - 20 Eylül 2013, 23:34:11

Dosyanız ektedir. :cooll

Kod: [Seç]

Private Sub CommandButton1_Click()
Dim sat As Long, i As Long, sh As Worksheet, sat2
Set sh = Sheets("Sayfa2")
Sheets("Sayfa1").Select
sat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
sh.Range("A:A").ClearContents
For i = 2 To sat
    If Cells(i, "N").Value = "E" Then
        sat2 = sat2 + 1
        sh.Cells(sat2, "A").Value = Cells(i, "A").Value
        sat2 = sat2 + 1
        sh.Cells(sat2, "A").Value = Cells(i, "B").Value
        sat2 = sat2 + 1
        sh.Cells(sat2, "A").Value = Cells(i, "C").Value
        sat2 = sat2 + 1
        sh.Cells(sat2, "A").Value = Cells(i, "D").Value
        sat2 = sat2 + 1
        sh.Cells(sat2, "A").Value = Cells(i, "F").Value
    End If
Next i
Sheets("Sayfa2").Select
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"

End Sub


Başlık: Ynt: sayfadan 1 de sayfa 2 koşullu aktarma
Gönderen: ismac - 27 Ocak 2014, 23:17:35

MERHABA ÇOK İYİ BİR KOD AMA YAN YANA NASIL YAZDIRACAĞIZ