Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: [Çözüldü] Makro ile Düşeyara  (Okunma sayısı 19211 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
[Çözüldü] Makro ile Düşeyara
« : 09 Aralık 2010, 18:11:11 »
Merhabalar,
Düşeyara formülünü makroya uyarlayamadım.
Yapmak istediğim Sayfa1 de B sütununda bulunann verileri Sayfa2 de karşılıklarını bularak A, C, D sütunlarına makro ile yazmak.
Teşekkürler.
« Son Düzenleme: 11 Aralık 2010, 11:20:57 Gönderen: Bülent Öztürk »

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Makro ile Düşeyara
« Yanıtla #1 : 09 Aralık 2010, 19:28:55 »
Merhaba,

Ekteki dosyayı inceleyiniz.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Makro ile Düşeyara
« Yanıtla #2 : 10 Aralık 2010, 09:29:46 »
Merhaba,

Ekteki dosyayı inceleyiniz.
Hüseyin Bey çok teşekkür ederim.
Tam istediğim gibi, ayrıca öğrenmişte oldum.
Sağolun

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Makro ile Düşeyara
« Yanıtla #3 : 10 Aralık 2010, 09:32:54 »
Hüseyin Bey çok teşekkür ederim.
Tam istediğim gibi, ayrıca öğrenmişte oldum.
Sağolun

Rica ederim, iyi çalışmalar.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Makro ile Düşeyara
« Yanıtla #4 : 10 Aralık 2010, 09:47:20 »
Peki Üstad alttaki kodların açıklamasını yapabilirmisiniz?
Teşekkür ederim.
Kod: [Seç]
   If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
            If Target = "" Then Exit Sub
                If WorksheetFunction.CountIf(Sheets("SAYFA1").Range("B:B"), Cells(Target.Row, "B")) > 0 Then

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Makro ile Düşeyara
« Yanıtla #5 : 10 Aralık 2010, 10:00:07 »
Elimden geldiğince açıklamaya çalıştım, umarım öğretici olmuştur.

1- If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
2-            If Target = "" Then Exit Sub
3-                If WorksheetFunction.CountIf(Sheets("SAYFA1").Range("B:B"), Cells(Target.Row, "B")) > 0 Then



1- Kodları çalışma sayfamızın kod kısmına uyguluyoruz. B2' den B65536. hücrelere veri girildiğinde işlemi çalıştır.
2- If kodlarında kullanılan tamamlayıcı bir işlem diyebiliriz.
3- (Target.Row, "B")) > 0 Then = sayfada B sütununa girdiğimiz veri sıfırdan büyük ise, ("SAYFA1").Range("B:B" = Sayfa1 de B sütununda arat.
« Son Düzenleme: 10 Aralık 2010, 10:02:09 Gönderen: Hüseyin Çoban »

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Makro ile Düşeyara
« Yanıtla #6 : 10 Aralık 2010, 10:08:26 »
Elimden geldiğince açıklamaya çalıştım, umarım öğretici olmuştur.

1- If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
2-            If Target = "" Then Exit Sub
3-                If WorksheetFunction.CountIf(Sheets("SAYFA1").Range("B:B"), Cells(Target.Row, "B")) > 0 Then



1- Kodları çalışma sayfamızın kod kısmına uyguluyoruz. B2' den B65536. hücrelere veri girildiğinde işlemi çalıştır.
2- If kodlarında kullanılan tamamlayıcı bir işlem diyebiliriz.

Hüseyin bey,
Teşekkür ederim. Sağolun

3- (Target.Row, "B")) > 0 Then = sayfada B sütununa girdiğimiz veri sıfırdan büyük ise, ("SAYFA1").Range("B:B" = Sayfa1 de B sütununda arat.

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Makro ile Düşeyara
« Yanıtla #7 : 11 Aralık 2010, 11:10:58 »
Rica ederim Ercan Bey, iyi çalışmalar dilerim.

Çevrimdışı myak

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Murat Yak
  • Doğum Yılınız: 1984
  • İl / İlçe: Bursa/Osmangazi
Ynt: [Çözüldü] Makro ile Düşeyara
« Yanıtla #8 : 02 Mart 2012, 18:07:25 »
siper olmuş