BAŞLIK Sorunu

[boztepelibey]

Değerli ÜSTADLARIM;
İnşallah Yardımcı Olursunuzda kurtulurum bu sorundan

 

[xxcell]

Dolaylı() Fonksiyonu; metinsel olarak belirttiğiniz hücre adresindeki değeri okur.
Örneğin dolaylı() içine "A10" yazarsanız a10 hücresindeki değeri gösterir,
yada "A" & 5 * 2 yazarsanız yine a10 hücresindeki değeri gösterir.

Bir anlamda başvuruyu matematiksel işleme tabi tutmaya yarar diyebiliriz.

Fark ettiyseniz sütun kaydırmak için pek kulanışlı değil. Çünkü sütunlar harf olarak arttıklarından sayısal olarak arttıramıyorsunuz. İşte bunun için R1C1 başvuru modeli kullanılır. R ingilize Row yani satırı, C ingilizce Column Yani sütunu gösterir. R1C1. 1 nci satır 1 ncü sütun yani A1 hücresini gösterir.
Dolaylı default olarak A1 başvuru modeline göre ayarlıdır. Dolaylıyı R1C1 başvuru modeli ile kullanmak için; DOLAYLI("R2C1";YANLIŞ) şeklinde ayarlamamız gerekir. Not. DOĞRU olursa anlayacağınız gibi A1 modeli oluyor.

İnşallah faydalı olur. Dosyanız ektedir.

Not. Sizin sorununuz KAYDIR() fonksiyonu ile daha da basit çözülebilirdi. Ben dolaylı() ile çözümü anlattım.

 

[Orion1]

Merhaba.
İndis formülü ile yapıldı.
Ekli dosyayı inceleyiniz.
D7 hücresine kopyalayın ve aşağı doru kopyalayın.
=İNDİS(BAŞLIKLAR!F9:AI9;1;$B$7)

 

[N.Ziya Hiçdurmaz]

yanıt

Arkadaşlar yanıtlamış Buda makrolu çözüm olsun.
Sub test()
Set s1 = Sheets("BAŞLIKLAR")
Set s2 = Sheets("KONTROL")
For Each bak1 In s1.Range("F6:AI6")
If bak1 = s2.[b7] Then
Range(bak1.Offset(2, 0), bak1.Offset(29, 0)).Copy
s2.[d7].PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[boztepelibey]

BaŞlik

ALLAH HEPİNİZDEN RAZI OLSUN.Teşekkür ederim.Sağolun Varolun