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

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: düşeyara komutu makro ile çalıştırma  (Okunma sayısı 8277 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı wildkiss23

  • Excelce Onbaşı
  • **
  • İleti: 7
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Mehmet Kara
  • Doğum Yılınız: 1974
  • İl / İlçe: ankara-ostim
düşeyara komutu makro ile çalıştırma
« : 28 Mayıs 2022, 17:12:19 »
Merhabalar.

Ekte paylaştığım deneme sayfasında düşeyara komutunu kullanıyorum. Bu komutun görevini yapacak makro yazabilir miyim?

Yardımlarınızı bekliyorum arkadaşlar.

Şimdiden teşekkürler.
Kayıtlı

Çevrimdışı wildkiss23

  • Excelce Onbaşı
  • **
  • İleti: 7
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Mehmet Kara
  • Doğum Yılınız: 1974
  • İl / İlçe: ankara-ostim
düşeyara komutu için makro lazım
« Yanıtla #1 : 30 Mayıs 2022, 12:35:05 »

Merhabalar.

Ekte paylaştığım deneme sayfasında düşeyara komutunu kullanıyorum.

Bu komutun görevini yapacak makro yazabilir miyim?

Yardımlarınızı için şimdiden teşekkürlerimi borç bilirim.


Kayıtlı

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1414
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: düşeyara komutu makro ile çalıştırma
« Yanıtla #2 : 03 Ağustos 2022, 22:41:34 »
Merhaba,

Cevap epey geç oldu, kusura bakmayın. Umarım bu zamana kadar çözüm bulmuşsunuzdur, ancak yine de paylaşmak isterim:

Kod: [Seç]
Sub Makro_ile_Duseyara()
Dim sondolusatir As Integer
sondolusatir = Range("A65530").End(3).Row
Set verialani = Range("M:Q")
Range("I4:I" & sondolusatir).ClearContents

For excelce = 4 To sondolusatir
On Error Resume Next
    Range("I" & excelce).Value = Application.WorksheetFunction.VLookup(Range("A" & excelce).Value, verialani, 5, False)
Next excelce

End Sub
Kayıtlı
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)
Sayfa: [1]   Yukarı git
« önceki sonraki »