Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: sayfadan 1 de sayfa 2 koşullu aktarma  (Okunma sayısı 8008 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı tahsin33

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: tahsin şahin
  • Doğum Yılınız: 1981
  • İl / İlçe: adana/seyhan
  • İşletim Sisteminiz: win7
sayfadan 1 de sayfa 2 koşullu aktarma
« : 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.

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: sayfadan 1 de sayfa 2 koşullu aktarma
« Yanıtla #1 : 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

Çevrimdışı ismac

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İsmail MEMİŞ
  • Doğum Yılınız: 1982
  • İl / İlçe: denizli merkez
  • İşletim Sisteminiz: windows 7
Ynt: sayfadan 1 de sayfa 2 koşullu aktarma
« Yanıtla #2 : 27 Ocak 2014, 23:17:35 »
MERHABA ÇOK İYİ BİR KOD AMA YAN YANA NASIL YAZDIRACAĞIZ