Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 02-11-2017, 09:38   #1
black29
Altın Üye
 
Giriş: 30/10/2006
Şehir: Tekirdağ
Mesaj: 52
Excel Vers. ve Dili:
excel 2013
Varsayılan Kodun son 2 rakkamına gore yenıden lıstelemek

Arkadalar elımdekı lıstede farklı kodlar var.
Benım ıstedıgım sonu 51 ıle bıtenlerı malzeme adı ıle bırlıkte sayfa 2 ye
54 ıle bıtenlerı sayfa 3 76 ıle bıtenlerı sayfa 4
yazdırmak ıstıyorum malzeme adı ıle bırlıkte
bu konuda yardımlarınızı beklıyorum. Teşekkur ederım dosya ektedır ornek olarak
Eklenmiş Dosyalar
Dosya Türü: xlsx ornek.xlsx (9.6 KB, 11 Görüntülenme)
black29 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 10:28   #2
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

.

Makrolar ile daha kolay bir çalışma olabilir.

.
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 10:33   #3
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,015
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Formülle de yapılabilir, fakat bu tür yapılarda makro kullanmak daha doğru olacaktır.
Bu şekilde deneyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Sartli_Listele()
    
    Dim deg(), syf(), i As Long, j As Byte, sat As Long
    
    deg = Array("51", "01", "76", "54")
    syf = Array("Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    
    For j = 0 To UBound(syf)
        Sheets(syf(j)).Range("A2:B" & Rows.Count).Clear
    Next j

    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        For j = 0 To UBound(deg)
            If Right(Cells(i, "A"), 2) = deg(j) Then
                sat = Sheets(syf(j)).Cells(Rows.Count, "A").End(xlUp).Row + 1
                Cells(i, "A").Resize(1, 2).Copy _
                    Sheets(syf(j)).Cells(sat, "A")
                Exit For
            End If
        Next j
    Next i
    
    Application.ScreenUpdating = True
    
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 10:50   #4
black29
Altın Üye
 
Giriş: 30/10/2006
Şehir: Tekirdağ
Mesaj: 52
Excel Vers. ve Dili:
excel 2013
Varsayılan

hocam runtıöe error 9 subscript out of range dıye hata verıyor
black29 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 10:58   #5
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,015
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

syf tanımındaki sayfa adları sizin dosyanız da var mı? Yada isimleri doğru mu?
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 11:10   #6
black29
Altın Üye
 
Giriş: 30/10/2006
Şehir: Tekirdağ
Mesaj: 52
Excel Vers. ve Dili:
excel 2013
Varsayılan

Alıntı:
ömer tarafından gönderildi Mesajı Görüntüle
syf tanımındaki sayfa adları sizin dosyanız da var mı? Yada isimleri doğru mu?
hocam sayfa 4 ve 5 acmadıgım ıcın vermıs hatayı teşekkur ederım
bırde bu kodları sayfa ısımlerını verdıgımsurece cogalta bılırım dımı


yardımlarından dolayı tesekkur ederım
black29 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 11:40   #7
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,015
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Sayfa ismi ve ölçütleri aynı düzeyde istediğiniz kadar artırabilirsiniz.

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 11:43   #8
black29
Altın Üye
 
Giriş: 30/10/2006
Şehir: Tekirdağ
Mesaj: 52
Excel Vers. ve Dili:
excel 2013
Varsayılan

Alıntı:
ömer tarafından gönderildi Mesajı Görüntüle
sayfa ismi ve ölçütleri aynı düzeyde istediğiniz kadar artırabilirsiniz.

.
ömer hocam bırde bu dosya kodları ayırdıktan sonra ılk sayfadıkı kodları sıldıre bılırmıyız yanı ayrılanlar ayrılmayanlar kalacak sekılde.
black29 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 12:07   #9
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,015
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Sayfaya aktarılanlar kalıcı mı olacak? Çünkü ben onları her defasında sildirmek için komut yazmıştım.
Kalıcı hali getirip, aktarım işlemiden sonra Sayfa1 deki verileri sildirmek için ilave eklenmiştir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Sartli_Listele()
    
    Dim deg(), syf(), i As Long, j As Byte, sat As Long
    
    deg = Array("51", "01", "76", "54")
    syf = Array("Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    
    'For j = 0 To UBound(syf)
     '   Sheets(syf(j)).Range("A2:B" & Rows.Count).Clear
    'Next j

    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        For j = 0 To UBound(deg)
            If Right(Cells(i, "A"), 2) = deg(j) Then
                sat = Sheets(syf(j)).Cells(Rows.Count, "A").End(xlUp).Row + 1
                Cells(i, "A").Resize(1, 2).Copy _
                    Sheets(syf(j)).Cells(sat, "A")
                Exit For
            End If
        Next j
    Next i
    
    Range("A2:B" & Rows.Count).ClearContents 'verileri silmek için ilave
    
    Application.ScreenUpdating = True
    
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-11-2017, 12:44   #10
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .



Örneğin hücredeki değer 12345
koddaki tanımlamalarda 45 ve yeni aktarılacağı sayfa yoksa.
Bu veriyi başka bir alana almadan silecektir. Dikkat ediniz...

. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 07:47


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden