Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 10-01-2018, 07:23   #71
ismailmustafa
Altın Üye
 
Giriş: 10/04/2006
Şehir: Konya
Mesaj: 36
Excel Vers. ve Dili:
2003
Varsayılan

Hayırlı sabahlar Hocam. İlgi ve alakanız için teşekkür ederim. Emek verip kod yazmışsınız. veya bulup eklemişsiniz. Ama benim sorunumu çözmedi. Şöyle ki, 2007 excelde kopyala-yapıştır yapmaya müsaade ediyor. Ancak ben 2003 excel kullanıyorum. 2003 excelde hücre kopyalayıp yapıştırmaya müsaade etmiyor. Bir hücreyi kopyalayıp, Başka bir sayfaya veya başka bir çalışma kitabına yapıştırmaya izin veriyor. Ancak aynı sayfa içerisinde bir hücreyi kopyalayıp başka bir hücrenin bulunduğu yere yapıştırmaya veya sayfa içinde bir değişiklik yapıldı ise "geri alma"ya izin vermiyor. Teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xls ÖRNEK EXCEL.xls (109.5 KB, 7 Görüntülenme)

Bu mesaj en son " 10-01-2018 " tarihinde saat 09:08 itibariyle ismailmustafa tarafından düzenlenmiştir....
ismailmustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-01-2018, 23:35   #72
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,814
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Sayfanızın kod bölümünde kullandığınız kodu aşağıdaki gibi değiştirip deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    
    Const Sutun As Long = 256
    Const Satir_Rengi As Long = 36
    
    Static Alan As Range
    Static Eski_Renkler(1 To Sutun) As Long
    
    If Not Alan Is Nothing Then
        With Alan.Cells
            If .Row = ActiveCell.Row Then Exit Sub
            For X = 1 To Sutun
                .Item(X).Interior.ColorIndex = Eski_Renkler(X)
            Next
        End With
    End If
    
    Set Alan = Cells(ActiveCell.Row, 1).Resize(1, Sutun)
    With Alan
        For X = 1 To Sutun
            Eski_Renkler(X) = .Item(X).Interior.ColorIndex
        Next
        .Interior.ColorIndex = Satir_Rengi
    End With
End Sub
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-01-2018, 23:37   #73
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,814
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Alıntı:
DMR 7 tarafından gönderildi Mesajı Görüntüle
korhan bey satırı istediğimiz bir renge nasıl boyatabiliriz? makro kaydetle renk kodunu bulabilirim ama o kodu bu makronun neresine yazmam gerekiyor?
Kod içinde aşağıdaki satır rengin kodunu ifade etmektedir. Dilediğini gibi değiştirip kullanabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Const Satir_Rengi As Long = 36
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2018, 08:41   #74
ismailmustafa
Altın Üye
 
Giriş: 10/04/2006
Şehir: Konya
Mesaj: 36
Excel Vers. ve Dili:
2003
Varsayılan

Korhan Hocam eline sağlık çok teşekkür ederim.
ismailmustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2018, 11:37   #75
DMR 7
 
Giriş: 14/09/2017
Şehir: Ankara
Mesaj: 77
Excel Vers. ve Dili:
2010 / Tr
Varsayılan

Alıntı:
Korhan Ayhan tarafından gönderildi Mesajı Görüntüle
Kod içinde aşağıdaki satır rengin kodunu ifade etmektedir. Dilediğini gibi değiştirip kullanabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Const Satir_Rengi As Long = 36
teşekkür ederim. bir de sadece bende mi oldu bilemedim ama. herhangi bir satıra tıklağımı farz edeyim. orası renkleniyor haliyle ve ben o şekilde çıkış yaptığımda.tekrar girdiğimde o satır hep renkli kalıyor düzeltemedim. kodlar yine diğer satırlarda renklendirmeye devam etse de, renkli kaydetmese çok güzel olurdu. nasıl yapılabilir?

bu arada şöyle birşey buldum.

http://s3.dosya.tc/server13/0bhc4v/C..._renk.rar.html

Bu mesaj en son " 11-01-2018 " tarihinde saat 14:07 itibariyle DMR 7 tarafından düzenlenmiştir....
DMR 7 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2018, 14:13   #76
DMR 7
 
Giriş: 14/09/2017
Şehir: Ankara
Mesaj: 77
Excel Vers. ve Dili:
2010 / Tr
Varsayılan

http://www.excel.web.tr/f48/renklend...k-t169608.html
DMR 7 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-01-2018, 22:37   #77
denese
Altın Üye
 
denese kullanıcısının avatarı
 
Giriş: 17/03/2011
Şehir: Ordu
Mesaj: 206
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Alıntı:
DMR 7 tarafından gönderildi Mesajı Görüntüle
teşekkür ederim. bir de sadece bende mi oldu bilemedim ama. herhangi bir satıra tıklağımı farz edeyim. orası renkleniyor haliyle ve ben o şekilde çıkış yaptığımda.tekrar girdiğimde o satır hep renkli kalıyor düzeltemedim. kodlar yine diğer satırlarda renklendirmeye devam etse de, renkli kaydetmese çok güzel olurdu. nasıl yapılabilir?

bu arada şöyle birşey buldum.

http://s3.dosya.tc/server13/0bhc4v/C..._renk.rar.html
Bu konuyu farklı kaynaklarda da biraz araştırdım, genelde konunun tıkandığı yer bu sorun. Dediğiniz gibi renkli kaydetmese harika olacak.
denese Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-01-2018, 00:39   #78
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,814
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Merhaba,

En son eklediğiniz dosyadaki kodlarda sayfadaki koşullu biçimlendirmeler tamamen siliniyor. Bu sebeple koşullu biçimlendirme uygulamanız gereken dosyalarda bu kod işinize yaramaz. Ama genel kullanım için uygundur.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Ç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 02:36


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil ve Konuşma Terapisti- Çorlu Dil ve Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden