Hey there!

It looks like you're enjoying Excel Trkiye- Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 3 sonutan 1 ile 3 arasndakiler gsteriliyor.

Konu: iSTENLEN hCREY iSTENLEN YERE YAZMA

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

    iSTENLEN hCREY iSTENLEN YERE YAZMA

    ARKADALAR
    Hayrl almalar Dileri.
    A, B, C,... Stnlarndan Oluan Bir Liste var. Veri Szmesi le istee Gre Szme Yapld.
    Szme yaplm olan bu listeyi Yeni Bir Excel Sayfasnda sra numaras ile listelemek istiyorum
    konu hakknda yardmc olabilecek varm.
    not: hasbel kader yaznn kk yazlmas gerektini grendim.
    sorumu yeniledim.
    Konu ali snlk tarafndan (17.08.2018 Saat 11:59 ) deitirilmitir.

  2. #2
    Kdemli 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.
    (rnein sizin konuda: veriler kanc satrdan balyor, tabloda ka stun var, hangi stunda filtre (szme) yaplyor vb. bir sr soru gelebilir)
    Bu nedenle tablo eklerseniz daha abuk yardm gelecektir.
    Ayrca forumda "Gelimi arama yap" kutusu iine filtre yazp aratrsanz yaplan bir ok rnek bulabilirsiniz.

    Tablo eklemek iin Link aada.
    Salcakla kaln iyi bayramlar.

    http://www.hesaptablosu.com/showthre...29-ExceltoHTML
    Konu behcet tarafndan (19.08.2018 Saat 15:53 ) deitirilmitir.

  3. #3
    Kdemli 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 sats
    2 1 Behet-1 Yayk-1 12345678901 szlemeli
    3 2 Behet-2 Yayk-2 12345678901 ii
    4 3 Behet-3 Yayk-3 12345678901 ii
    5 4 Behet-4 Yayk-4 12345678901 memur
    6 5 Behet-5 Yayk-5 12345678901 ii
    7 6 Behet-6 Yayk-6 12345678901 ii
    8 7 Behet-7 Yayk-7 12345678901 ii
    9 8 Behet-8 Yayk-8 12345678901 memur
    10 9 Behet-9 Yayk-9 12345678901 ii
    11 10 Behet-10 Yayk-10 12345678901 ii
    12 11 Behet-11 Yayk-11 12345678901 ii
    13 12 Behet-12 Yayk-12 12345678901 ii
    14 13 Behet-13 Yayk-13 12345678901 szlemeli
    15 14 Behet-14 Yayk-14 12345678901 ii
    16 15 Behet-15 Yayk-15 12345678901 ii
    17 16 Behet-16 Yayk-16 12345678901 ii
    18 17 Behet-17 Yayk-17 12345678901 szlemeli
    Sayfa smi: Sayfa1 (Feuil1)
    XLtoHTML v1.2 / OfficeTrkiye - 2014

    Mrb,
    Sizden bir ses kmad.
    rnek olarak byle bir tablomuz olsun.
    5.stundaki kritere gre szdrp yeni bir sayfaya aktarsn ve sra no versin
    her seferinde farkl kriter semek daha uygun olur sanyorum.

    Aadaki kodlar dosyaya bir modl ekleyip iine kopyala yaptr yapnz.
    Bu modl bir butona balaynz.
    kod aada

    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("Ltfen aktarlacak staty yaznz.")

    With wS1
    Set Plage = .[A1].CurrentRegion
    Plage.AutoFilter Field:=5, Criteria1:=kriter 'kendinize gre stun saysn deitirin
    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 tarafndan (19.08.2018 Saat 16:04 ) deitirilmitir.

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •