Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 16-10-2017, 15:42   #1
sumer2003
Altın Üye
 
Giriş: 27/09/2007
Şehir: İstanbul
Mesaj: 21
Excel Vers. ve Dili:
Microsoft Office 2010
Varsayılan Zemin Rengi Değiştirilen Satırı Diğer Sayfaya Taşıma

Merhaba Arkadaşlar;

Excelde KDV kontrolü yaparken kontrol ettiğim satırların dolgu rengini sarıya boyamak suretiyle işaretliyorum.

İşaretleme işlemi bittiği anda ilgili satırı nasıl diğer sayfaya otomatik olarak taşıyabilirim?
sumer2003 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 15:48   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,008
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Sayfa1 A sütununda zemini renkli olan hücreleri, Sayfa2 A sütununa listeler.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Zemin_Rengi()
    
    Dim i As Long, sat As Long, S2 As Worksheet
    
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
    S2.Range("A2:A" & Rows.Count).ClearContents
    
    sat = 2
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A").Interior.ColorIndex > 0 Then
            S2.Cells(sat, "A") = Cells(i, "A")
            sat = sat + 1
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 16:07   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,229
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Alternatif ve bir görüş.

Bence dolgu rengi üzerine işlem yapmak yerine,
diğer sayfaya aktarılacak satırda herhangi bir hücreye (alan sınırlaması aşağıda belirtildi) çift tıkladığınızda
diğer sayfaya kopyalama yaptırmak daha pratik ve anlamlı.

Aşağıdaki kodu, alt taraftan üzerinde çalıştığınız sayfanın adına fareyle sağ tıkaladığınızda açılacak VBA ekranında sağdaki boşluğa yapıştırın.

Kod;
-- Üzerinde çalıştığınız sayfanın F2:M100 aralığındaki bir hücreye fareyle çift tıkladığınızda devreye girer,
-- Çift tıkladığınız hücrenin bulunduğu satırdaki A:K sütun aralığını kopyalar,
-- Sayfa2 isimli sayfada, C sütunundaki ilk boş satıra yapıştırır.

Kod'da renk eşleşmelerini takip ederseniz, kodun çalışacağı hücre aralığını,
kopyalanacak sütun aralığını ve yapıştırılacak sütunu isteğinize göre değiştirebilirsiniz.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [F2:M100]) Is Nothing Then Exit Sub
Range("A" & Target.Row & ":K" & Target.Row).Copy
Sheets("Sayfa2").Range("C" & Sheets("Sayfa2").Cells(Rows.Count, "C").End(3).Row + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False: Cancel = True
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Ç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 23:34


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