Toplam 3 sonuçtan 1 ile 3 arasındakiler gösteriliyor.

Konu: iSTENİLEN hÜCREYİ iSTENİLEN YERE YAZMA

  1. #1
    Yeni Üye
    Üyelik tarihi
    Apr 2010
    Nereden
    mersin
    Mesajlar
    1

    iSTENİLEN hÜCREYİ iSTENİLEN YERE YAZMA

    ARKADAŞLAR
    Hayırlı Çalışmalar Dileri.
    A, B, C,... Sütünlarından Oluşan Bir Liste var. Veri Süzmesi İle isteğe Göre Süzme Yapıldı.
    Süzme yapılmış olan bu listeyi Yeni Bir Excel Sayfasında sıra numarası ile listelemek istiyorum
    konu hakkında yardımcı olabilecek varmı.
    not: hasbel kader yazının küçük yazılması gerektiğni ögrendim.
    sorumu yeniledim.
    Konu ali ısınlık tarafından (17.08.2018 Saat 11:59 ) değiştirilmiştir.

  2. #2
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.020
    Merhaba,
    Excel de tarif ederek anlatmak bazen yanlış anlamaya bazen de noksan anlamaya sebep olabiliyor.
    (Örneğin sizin konuda: veriler kaçıncı satırdan başlıyor, tabloda kaç sütun var, hangi sütunda filtre (süzme) yapılıyor vb. bir sürü soru gelebilir)
    Bu nedenle tablo eklerseniz daha çabuk yardım gelecektir.
    Ayrıca forumda "Gelişmiş arama yap" kutusu içine filtre yazıp aratırsanız yapılan bir çok örnek bulabilirsiniz.

    Tablo eklemek için Link aşağıda.
    Sağlıcakla kalın iyi bayramlar.

    http://www.hesaptablosu.com/showthre...29-ExceltoHTML
    Konu behcet tarafından (19.08.2018 Saat 15:53 ) değiştirilmiştir.

  3. #3
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.020
    Office Ver.: bilinmiyor
    Windows Ver.: Windows 10 Enterprise 64 bit
    + A B C D E
    1 sno adı soyadı tckno satüsü
    2 1 Behçet-1 Yayıkçı-1 12345678901 sözleşmeli
    3 2 Behçet-2 Yayıkçı-2 12345678901 işçi
    4 3 Behçet-3 Yayıkçı-3 12345678901 işçi
    5 4 Behçet-4 Yayıkçı-4 12345678901 memur
    6 5 Behçet-5 Yayıkçı-5 12345678901 işçi
    7 6 Behçet-6 Yayıkçı-6 12345678901 işçi
    8 7 Behçet-7 Yayıkçı-7 12345678901 işçi
    9 8 Behçet-8 Yayıkçı-8 12345678901 memur
    10 9 Behçet-9 Yayıkçı-9 12345678901 işçi
    11 10 Behçet-10 Yayıkçı-10 12345678901 işçi
    12 11 Behçet-11 Yayıkçı-11 12345678901 işçi
    13 12 Behçet-12 Yayıkçı-12 12345678901 işçi
    14 13 Behçet-13 Yayıkçı-13 12345678901 sözleşmeli
    15 14 Behçet-14 Yayıkçı-14 12345678901 işçi
    16 15 Behçet-15 Yayıkçı-15 12345678901 işçi
    17 16 Behçet-16 Yayıkçı-16 12345678901 işçi
    18 17 Behçet-17 Yayıkçı-17 12345678901 sözleşmeli
    Sayfa İsmi: Sayfa1 (Feuil1)
    XLtoHTML v1.2 / OfficeTürkiye - 2014©

    Mrb,
    Sizden bir ses çıkmadı.
    Örnek olarak böyle bir tablomuz olsun.
    5.sütundaki kritere göre süzdürüp yeni bir sayfaya aktarsın ve sıra no versin
    her seferinde farklı kriter seçmek daha uygun olur sanıyorum.

    Aşağıdaki kodları dosyaya bir modül ekleyip içine kopyala yapıştır yapınız.
    Bu modülü bir butona bağlayınız.
    kod aşağıda

    Public Sub aktar_sirala()
    Dim wS1 As Worksheet, wS2 As Worksheet
    Dim Plage As Range
    Dim kriter As Variant Application.ScreenUpdating = False
    Set wS1 = Worksheets(1)
    Set wS2 = Worksheets(2)
    wS2.Cells.ClearContents

    kriter = InputBox("Lütfen aktarılacak statüyü yazınız.")

    With wS1
    Set Plage = .[A1].CurrentRegion
    Plage.AutoFilter Field:=5, Criteria1:=kriter 'kendinize göre sütun sayısını değiştirin
    Set Plage = .AutoFilter.Range
    Plage.Copy wS2.[A1]
    Plage.AutoFilter
    End With

    wS2.Activate

    Set wS1 = Nothing: Set wS2 = Nothing: Set Plage = Nothing
    siranover
    End Sub
    Sub siranover()
    Dim i As Long, No As Long
    For i = 2 To Range("b" & Rows.Count).End(xlUp).Row
    If Cells(i, 2) <> Empty Then
    No = No + 1
    Cells(i, 1) = No
    Else
    Cells(i, 1) = Empty
    End If
    Next
    End Sub

    http://s3.dosya.tc/server17/nd18bm/A...over2.xls.html
    Konu behcet tarafından (19.08.2018 Saat 16:04 ) değiştirilmiştir.

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •