formülle veri alırken kenarlıklarıda alma

[modoste]

merhaba sayın hocalarım
ekli tablomda sorumu ilettim

 

[ÖmerFaruk]

    Range("DX8:EL105").Clear
    Range("FV8").Offset(0, (Range("DX3") - 1) * 15).Resize(98, 15).Copy
    Range("DX8").PasteSpecial xlPasteAll

 

[modoste]

bu tip soruların makro hariç çözümleri yok mu
formüllerle yeni gelişen formüllerle bir çözümü yok mu

ben makrolarda hep sıkıntı yaşıyorum bu makroyu yine ekleyip çalıştıramadım. benim beceriksizliğim dosyayıda ekledim hatamı anlayamıorum.

 

[ÖmerFaruk]

Soldaki pencerede sağ tıklayın
Modul Ekleyin
Eklediğiniz modülün içine
Sub MakroYeni yazın enter basın

Kendiliğinden aşağıdaki hali alacaktır
Sub MakroYeni()
End Sub

Bu iki satırın arasına verdiğim kodları yapıştırın.
Sonra sayfanız üzerinde bu kodları bir butona atayarak ya da makrolar menüsünden çalıştırabilirsiniz.

 

[modoste]

Hallettim Hocam teşekkür ediyorum
makro hariç çözümler var mıdır.

gerçek dosyamda uyguladım kullanmaya başladım teşekkür ederim tekrar

 

[ÖmerFaruk]

Biçimleri formülle alamazsınız.

 

[modoste]

excelin ileriki zamanlardaki versiyonlarında eklenebilir galiba bu tip durumlar

 

[Orion1]

Koşullu biçimlendirme ile yapılabilir sanırım.
Forum da arama yapabilirsiniz.

 

[Muzaffer Ali]

Koşullu biçimlendirme ile bu kadar biçimlendirme yapmak pratikte mümkün değil.
Çünkü her hücre tek tek koşullu biçimlendirme yapılması gerekir.

 

[modoste]

2015 yılındaki demir hesaplamalarımda demir şekli denen yerdeki gri renkli olan sayıları formülle ve kenarlıkları tek tek koşullu biçimlendirme ile yapmıştım ama çok çok zamanımı almıştı söylendiği gibi. şimdi bu gibi işlerin daha kolay yollarını aramaya çalışıyorum ama bu seferki sorumda format vs farklı olduğu için 39 adet imalat parçasının demir şekilli ve sayılı tabloyu kenarda yaptım. tek seferde çağırmakla ilgili bir sorumdu.

 

[modoste]

tabloya satır sütun eklediğimde makro çalışmadı
bu eklemeler olunca kod otomatik değişemez mi

 

[ÖmerFaruk]

Olur olmasına da, öyle bir tablo hazırlayıp soruyorsunuz ki, kriter ya da referans alınacak bir şey bırakmıyorsunuz.

Nihayetinde son gönderdiğiniz resimle ilk dosyanız birbirinden çok farklı.
Bu minvalde kopyalanacak ve yapıştırılacak alanlar için kriterleri söyleyebildiğiniz dosyanızı eklerseniz ona göre düzenleyebilirim.

 

[modoste]

hocam son gönderdiğim resim geçmişte buna benzer bir çalışmayı koşullu biçimlendirme ile çözmüştüm diye 8 ve 9 nolu mesaja cevaben göndermiştim. asıl sorumla ilgisi yoktur.
koddaki adreslerini manuel değiştirip satır sütun eklemekle ilgili değişik durumu kendim çözebildim.
en ufak bir satır sütun eklediğimde kod içindeki
Range("DX8:EL105").Clear

adresi değişimi dinamik olabiliyor mu makro larda

 

[ÖmerFaruk]

Elbette olabiliyor.

 

[modoste]

Range("DX8:EL105").Clear
Range("FV8").Offset(0, (Range("DX3") - 1) * 15).Resize(98, 15).Copy
Range("DX8").PasteSpecial xlPasteAll

hocam sizin bu kodu güncel şöyle belirtsek
Excel dosyasının içinde bir yerde belirtsek

Kopyalanacak Alanların ilkinin sol üst köşesinin hücresi = FV8
Kaç Satır Kaç sütun kopyalanacağı =98x15 yada (98,15) (98 satır 15 sütun demek)
Yapıştırılacak Alanın Sol Üst Hücresi = DX8
Kaçıncı aralığın kopyalanması için yazdığımız sayı, hangi hücreye yazılacak = DX3

 

[ÖmerFaruk]

Siz 98,15 deki satır ve sütun sayısının değişebilir olmasından mı?
FV8 hücresinin değişebileceği mi?
DX8 hücresinin değişebileceği mi?
DX3 hücresinin değişebileceği mi?
Yoksa bunlardan birden fazlasının değişebileceğini mi söylüyorsunuz?

 

[modoste]

hepsi değişken hocam, hepsini ben bir yerde belirleyecem makroya çalıştır diyecem sadece
diye düşünüyorum. kodun içine defalarca girip değişmeyecem hücrelere yazacam makroyu çalıştırcam


buna benzer bir çözüm hocam eklediğim dosya sorumdan bağımsız.

 

[modoste]

buda örnek olabilir hocam

 

[ÖmerFaruk]

Şu an son haliyle kullandığınız dosyayı paylaşırsanız üzerinde yapayım.
Sizden istediğim, ilgili alan ve hücrelere BAŞLIK yazmanız. Bu başlıklara göre otomatik olarak çalıştırayım

 

[modoste]

kriterlerimi yazdım hocam