Hücreye Yazdıkça Çalışacak Makro Yazma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Epakambalaj

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
370
Excel Versiyonu
Excel 2010
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Hayırlı sabahlar @Ömer BARAN hocam.

Çeşitli yöntemler denedik ve sağlıklı bir sonuç alamadık.
Sorunumuzu daha yalın hale getirmeye çalıştık.
Örnek dosyada belirttiğimiz şekilde;

H1, H37, H73... hücrelerine herhangi bir veri girdiğimizde,

K1:K36 aralığına, DM1:DM36 aralığını,
O1:O36 aralığına, DN1:DN36 aralığını,
S1:S36 aralığına, DO1:DO36 aralığını,
W1:W36 aralığına, DP1:DP36 aralığını çekmek istiyoruz.

Mümkünse mevcut kodun içerisine,
Mümkün değilse de mevcut kodu iptal edip en baştan yazabilir misiniz?

Şimdiden çok teşekkür ediyorum hocam.
 
Yazı Rengini Hücre Değerine Göre Ayarlama
Hesap Numarasına Göre Dosya Açma ve Kayıt Etme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Worksheet_change koduna aşağıdaki kodu ekleyin. ilk satırdaki "İf" satırının hemen altına ekleyin.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(14 satır)
 
Oyla 0 Olumsuz oyla
elinize sağlık hocam

DM1:DM36, DN1:DN36... gurubun sabit kalması,
K, S,... gurubu alt alta hareketli olması için ne yapmalıyız?

İfade etmeyi unutmuşum kusura bakmayın
 
Oyla 0 Olumsuz oyla
Eşittir işaretlerinden sonraki satbas satbit yazan yerleri değiştirmeniz yeterli. Satbas yerine 1 yazın SatBit yerine 36 yazın. Eşittir işaretlerinden öncekileri değiştirmeyin.
 
Oyla 0 Olumsuz oyla
örnek: değişkenler yerine sadece 1 ve 36 ekleyin;
Range(Cells(satBas, "K"), Cells(SatBit, "K")).Value = Range(Cells(1, "DM"), Cells(36, "DM")).Value

veya eşittirden sonrasını tamamen şu şekilde değiştirebilirsiniz;
Range(Cells(satBas, "K"), Cells(SatBit, "K")).Value = Range("DM1:DM36").Value
 
Oyla 0 Olumsuz oyla
harika oldu hocam.

daha sade ve anlaşılır olması için,
ElseIf sutun = 11 Then,
ElseIf sutun = 15 Then,
ElseIf sutun = 19 Then kısımlarını kaldırdım çalışmada değişiklik olmadı. gayet güzel çalışıyor.
sizce bir sakıncası var mı hocam, yoksa başka açılardan hataya sebep olur mu?
 
Oyla 0 Olumsuz oyla
Farklı H sütunu satırlarında değişiklik yaparak deneme yapın, herhangi bir hatalı aktarım görmezseniz sorun olmaz.
 
Oyla 0 Olumsuz oyla
Kodun diğer bölümleri içinde denemeler yaparsanız daha sağlıklı olur. Bu yazdığımız alan sadece h sütunu içindi.
 
Oyla 0 Olumsuz oyla
Hocam kodları tek sayfada birleştirmeyi farklı yerlere ekleyerek denedim, kodları bir arada çalıştıramadım.

çalıştığını test etmek için,
H1, 37, 73 ... hazırladığınız kod çalışacak.
I sutununa rakam girildiğinde, K sutununde metin varsa, b7, c7, d7 den başlayarak tek tek veri aktaracak.
G35e veri girildiğinde, F35 e tarih aktarılacak.

şayet beraber çalışması mümkün değilse, ayrı ayrı çalıştırma yoluyla devam edeceğiz.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
sizin kodu diğer kodun önlerine alınca, diğer kod çalışmıyor,
sizin kodu diğer kodun arkalarına alınca, sizin kod çalışmıyor.
 
Oyla 0 Olumsuz oyla
hocam burada sizin kodu üst tarafa aldım, diğer kod çalışmıyor.
I 1 hücresine veri girdiğimde, B7, C7, D7 hücrelerine aktarım yapması gerekiyor.

ayrıca G35 gücresine veri girdiğimizde, F35 hücresine tarih çekmesi gerekiyor. Bu şekilde diğer kod çalışmıyor.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt