Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 23-05-2017, 15:55   #11
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,534
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Alıntı:
kimustafa tarafından gönderildi Mesajı Görüntüle
gönderdiğim kodda parantez içine (If Intersect(Target, [L2:L27, L45:L70, L88:L114]) Is Nothing Then Exit Sub)
Liste uzayacaksa;

If Intersect(Target, [L:L]) Is Nothing Then Exit Sub

Şeklinde yazmanız daha mantılı.

Çalıştıramamanızdaki neden;

If Target.Offset(0, -2) <> "" Then

Şartı olabilir. Bu şart J sütununda dolu olmasına bakar. Yani bu sütunda numaralar kullandığınız için her zaman dolu olur diye düşündüm. Değil mi?

Alıntı:
kimustafa tarafından gönderildi Mesajı Görüntüle
Bir diğer takıldığım şey ise “özete dön”ün çalışma mantığını anlayamamak oldu
Bununla ilgili birşey yapmanıza gerek yok.

L sütununda "Özete Dön" ibaresine tıklarsanız tıkladığınız sıradaki tabloya göre sizi A sütununda ilgiliyi sıraya götürür.

.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 24-05-2017, 11:20   #12
kimustafa
Altın Üye
 
Giriş: 22/02/2012
Şehir: Kocaeli
Mesaj: 29
Excel Vers. ve Dili:
Türkçe
Varsayılan

Liste uzayacaksa; If Intersect(Target, [L:L]) Is Nothing Then Exit Sub Şeklinde yazmanız daha mantılı. Bu önerinizi daha mantıklı ve pratik buldum, dikkate alacağım.

Ancak If Target.Offset(0, -2) <> "" Then şartına gerek yok. Çünkü J sütunu boş olabilir. O sebeple bu kısma gerek yok. (Kaldırmayı denedim ama hata verdi)

Birde “Özete Dön”ü hala anlayamadım/çalıştıramadım. Sanırım çalışma mantığı şöyle:

S1 ve S2 şeklinde 2 değişken ile S3=4 şeklinde bir sabit tanımlamışsınız.

S1 L sütunu yukarıdan aşağıya doğru tarayıp “Özete Dön” leri sayıyor ve kaçıncı “Özete Dön” ise S1 değişkeni o sayı oluyor.

S2’yi tam olarak anlayamadım.

Sonuç itibari ile dediğiniz gibi L sütunundaki “Özete Dön” tıklandığında, kaçıncı “Özete Dön”e tıklanmışsa (Kaçıncı faturaysa) o numaralı özete gidiyor (olması gerekir)

Fatura tablosunu kopyalayıp K131 den itibaren yapıştırdığımda 4. “Özete Dön”e tıkladığımda kod çalışmadı. Ben bu şekilde aşağıya doğru 100 civarı fatura kopyalamayı planlıyorum. Bu şekilde, herşeyi çalışan bir firma sayfası oluşturduktan sonra her yeni firma için o sayfayı kopyalayarak çoğaltacağım. Bu çoğaltma işlemlerinde kullanmak üzere bir butona daha ihtiyacım olacak.

Örnek olarak; Özet kısımlarına ve Fatura tablosuna girişler yapılmış bir sayfayı kopyalayıp çoğalttığımda doğal olarak boş bir sayfaya ihtiyacım olacak. Belirleyeceğim alanları silen bir makro ve bu makroyu çalıştırmak üzere şifreli bir command buton bu sorunu çözecektir.

Yani bir command buton olsun ama tıklandığında makroyu çalıştırmak için şifre istesin (ki kazara ve yetkisiz kişiler verileri silmesin) şifre girildiğinde ise çalışan makro belirlenecek alanlardaki verileri silsin.

Şifreli bir command button daha farklı alanlarda da kullanılabilecek güzel bir arşiv uygulaması olacaktır.
Eklenmiş Dosyalar
Dosya Türü: xlsm Örnek Kopya.xlsm (54.4 KB, 3 Görüntülenme)
kimustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-05-2017, 11:52   #13
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,534
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Eklediğiniz dosyada L131 tıkladığımda imleç A7 gidiyor.
------------------------------------------------------------------------------------------------

Boş hücre şartını değiştirdim.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [L:L]) Is Nothing Then Exit Sub
If Target.Value <> "" And Target.Value <> "Özete Dön" And Target.Value <> "Ürün Adı" Then
Cmd1.Top = ActiveCell.Top
End If
s3 = 4
If Target = "Özete Dön" Then
s1 = WorksheetFunction.CountIf([L:L], "Özete Dön")
s2 = WorksheetFunction.CountIf(Range("L" & Target.Row + 1 & ":L" & Rows.Count), "Özete Dön")
Range("A" & s3 - 1 + s1 - s2).Select
End If
End Sub
.
__________________
.
Ömer Çevrimiçi   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 09:39


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden