Excel Forum
 
 

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

DUYURU SİSTEMİ

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 06-10-2006, 10:13   #1
sta2003
 
Giriş: 04/10/2006
Mesaj: 17
Excel Vers. ve Dili:
excel
Varsayılan clearcontents komutu

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:F]) Is Nothing Then Exit Sub
x = Target.Row
y = Target.Column
If Sheets("mud").Cells(x, y) <> "" Then
MsgBox ("Mud sayfasındaki ilgili hücre dolu.")
Cells(x,y).ClearContents
Exit Sub
Else
Sheets("mud").Cells(x, y) = Target
End If
End Sub

arkdaslar kırmızı olan yeri ekledigimde sonsuz döngü olusuyor. ama hücre dolu oldugunda aylık sayfasına yazdıgımın silinmesini istiyorum(mud sayfasında var ise)
tesekkürler...
sta2003 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 10:46   #2
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 6,345
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Umarım doğru anlamışımdır. Kodu aşağıdaki şekilde değiştirdim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:F]) Is Nothing Then Exit Sub
x = Target.Row
y = Target.Column
If Sheets("mud").Cells(x, y) <> "" Then
MsgBox ("Mud sayfasındaki ilgili hücre dolu.")
Sheets("mud").Cells(x, y).ClearContents
Exit Sub
Else
Sheets("mud").Cells(x, y) = Target
End If
End Sub
__________________
Yolda Yürüme Kuralları







hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 10:55   #3
sta2003
 
Giriş: 04/10/2006
Mesaj: 17
Excel Vers. ve Dili:
excel
Varsayılan

benim istedigim girdigim aylık isimli sayfadan yazılanların silinmesi mud sayfası değilde aylık sayfası Sheets("aylık").Cells(x,y).ClearContents dedigimde döngüden çikmiyor sınırsız döngü oluşuyor.
ne yapabilirimmm
sta2003 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 11:09   #4
hamitcan
Uzman
 
hamitcan kullanıcısının avatarı
 
Giriş: 01/07/2004
Mesaj: 6,345
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Döngü oluşmasının sebebi mud sayfasındaki verinin hep dolu olması.
__________________
Yolda Yürüme Kuralları







hamitcan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 11:46   #5
mehmett
Altın Üye
 
Giriş: 18/05/2005
Mesaj: 2,654
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Sn sta2003

Dosyanızdaki makroyu biraz değiştirdim, umarım bu sefer istediğiniz gibi olmuştur.
Eklenmiş Dosyalar
Dosya Türü: zip Kitap1.zip (8.4 KB, 20 Görüntülenme)
__________________
Office 2007 Türkçe
mehmett Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 13:00   #6
sta2003
 
Giriş: 04/10/2006
Mesaj: 17
Excel Vers. ve Dili:
excel
Varsayılan

öncellike çok tesekkür ederim mehmet bey. sanırım yazdiginiz program bazı yerlerde calşmiyor uygulama yapma için degerler verdigimde mud sayfasinda deger yokken dolu oldugunu gösteriyor..
sta2003 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 13:07   #7
sta2003
 
Giriş: 04/10/2006
Mesaj: 17
Excel Vers. ve Dili:
excel
Varsayılan

son yazdıgınız porgramda aylık sayfasında girilen deger mud de herhangi biryerde varsa kabul etmiyor. sanırım ben yanşıl aktardım.
benim ihtiyacım olan program, aylık sayfasına bir hücreye girdigim sayı mud sayfasında aynı hücre herhangi bir sayı ile dolu ise msj versin ve aylık sayfasına girdigim sayıyı silsin.

çok tesekkür ederim SN. MEHMETT
sta2003 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 13:18   #8
sta2003
 
Giriş: 04/10/2006
Mesaj: 17
Excel Vers. ve Dili:
excel
Varsayılan

Sn Mehmett

ekdeki dosya istedigim gibi calişiyor benim ihtiyacım olan program, aylık sayfasına bir hücreye girdigim sayı mud sayfasında aynı hücre herhangi bir sayı ile dolu ise msj versin ve aylık sayfasına girdigim sayıyı silsin.
çok tesekkürler.....
Eklenmiş Dosyalar
Dosya Türü: xls Kitap11.xls (21.5 KB, 5 Görüntülenme)
sta2003 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 14:03   #9
mehmett
Altın Üye
 
Giriş: 18/05/2005
Mesaj: 2,654
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Bir de şöyle deneyelim;
Eklenmiş Dosyalar
Dosya Türü: zip Kitap11.zip (7.6 KB, 14 Görüntülenme)
__________________
Office 2007 Türkçe
mehmett Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2006, 14:11   #10
sta2003
 
Giriş: 04/10/2006
Mesaj: 17
Excel Vers. ve Dili:
excel
Varsayılan

Sn Mehmett
çok tesekkürler ewet yapmak istedigim buydu. ilginiz için çok tesekkürler.
son birsey sorsam acaba kırmızı işaretli kısımların nedeni nedir? neden 10 ve vbokonly "dikkat" ne anlama geliyor çok sağolun tesekkürler gerçekten....



Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A:F]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
x = Target.Row
y = Target.Column
If Sheets("mud").Cells(x, y) <> "" Then
10 Target = ""
MsgBox "Mud sayfasındaki ilgili hücre dolu.", vbOKOnly, "Dikkat"Exit Sub
Else
Sheets("mud").Cells(x, y) = Target
End If
End Sub
sta2003 Ç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 04:35


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


Bahis Forum - Termal Kemer - Define - Samsung Fernseher - Wheat Flour Gönen Tarım Fuarı Çorlu Telefon Santralı - Ergene Kamera - Çorlu Su Arıtma - Kaplin - Redüktör - Teknik Borulama, Tesisat, Tank ve Baca - Bulvar Palas - Plastik Yüzey Boyama - İzmit Sigorta - Çorlu Kompresör - Çorlu İnşaat - Ambalaj
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden