E

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

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

Epakambalaj

Normal Üye
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.
 

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: 
Görüntülemek için giriş yapmanız gerekmektedir.
(14 satır)
 
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
okutkan' Alıntı:
ö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
Genişletmek için tıklayın ...
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
okutkan' Alıntı:
Farklı H sütunu satırlarında değişiklik yaparak deneme yapın, herhangi bir hatalı aktarım görmezseniz sorun olmaz.
Genişletmek için tıklayın ...
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
okutkan' Alıntı:
Mesela hangi hücrede değişiklik yapınca çalışmıyor?
Genişletmek için tıklayın ...
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...
Üst