Hey there!

It looks like you're enjoying Hesaptablosu - 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 4 sonutan 1 ile 4 arasndakiler gsteriliyor.

Konu: bir stundaki deeri, dier stunda aramak ve yazdrmak hakknda yardm ltfen.

  1. #1
    Yeni ye
    yelik tarihi
    Sep 2012
    Mesajlar
    3

    bir stundaki deeri, dier stunda aramak ve yazdrmak hakknda yardm ltfen.

    Merhabalar,

    Benim sorum u:
    rnein;

    A stununda 50 rencinin ad soyad var
    C stununda "GET", "KALDI" fadeleri var

    ben her hangi bir stuna (r: E) kalanlarn veya geenlerin isimlerini alt alta nasl yazdrabilirim.

    Sayglarmla.
    Konu murattezcan tarafndan (30.05.2017 Saat 13:35 ) deitirilmitir.

  2. #2
    ye
    yelik tarihi
    Apr 2004
    Mesajlar
    30
    https://yadi.sk/i/ofop46g33Jiayv

    yle bir rnek iinizi grr m pivot tablo ile basit bir tablo yapsanz

  3. #3
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    983
    Mrb,
    Byle bir ey mi istiyorsunuz?


    http://www.dosya.tc/server8/dnxltc/O...TAR-2.xls.html
    Konu behcet tarafndan (11.06.2017 Saat 14:32 ) deitirilmitir.

  4. #4
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    983
    Mrb,
    Ekli makroyu bir butona ataynz.

    Private Sub CommandButton1_Click()
    Dim wS1 As Worksheet, wS2 As Worksheet
    Dim Plage As Range
    Application.ScreenUpdating = False
    Set wS1 = Sheets("LSTE")
    wS1.Range("E:G").ClearContents
    KRTER = InputBox("Hangi rencileri aktarmak istiyorsunuz? GET/KALDI", "KRTER GR ", "LTFEN KRTER GRNZ")
    With wS1
    Set Plage = .[B1].CurrentRegion
    Plage.AutoFilter field:=3, Criteria1:=KRTER
    Set Plage = .AutoFilter.Range
    Plage.Copy wS1.[E1]
    Plage.AutoFilter
    End With
    wS1.Activate
    Columns("F:G").Select
    Selection.Delete Shift:=xlToLeft
    Range("E1").Select
    Set wS1 = Nothing: Set Plage = Nothing
    Application.ScreenUpdating = True
    End Sub

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
  •