formülle veri yazdırmak

[eseseski]

ekte verdiğim örnekte b1 hücresinde ay değiştikçe o aya ait değerler nasıl aktarılabilir bilgisi olanlar yardım edebilirmi acaba

 

[Ömer]

Merhaba,

B2 hücresine yazıp alt satırlara kopyalayın.

=YATAYARA($B$1;$C$1:N2;SATIR();0)

.

 

[eseseski]

ömer bey ilginize teşekür derim ama benim istediğim b2 deki değerin b1 deki aya karşılık gelen hücreye aktarılması yani tam tersi b1 hücresindeki aya ait değerler diğer sütunlarda karşılk gelen aya ait hücrelere aktarılacak

 

[Ömer]

Aktarımdan sonra yeni bir ay seçilirse eski aktardığı aydaki bilgi silinecek mi yoksa kalıcı mı olacak.

 

[eseseski]

kalıcı olacak

 

[Ömer]

Eğer kalıcı olacaksa formül değil makro kullanmanız gerekir.

Çalışma sayfasının kod bölümüne kopyalayın. B1 hücresi tetiklendiğinde kodlar çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim son As Long, c As Range
 
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    son = Cells(Rows.Count, "A").End(xlUp).Row
 
    Set c = [C1:N1].Find(Target, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Range("B2:B" & son).Copy Cells(2, c.Column)
    End If
 
End Sub

.

 

[eseseski]

ömer bey teşekür ederim ilginize makro ile istediğim oldu sağ olun

 

[buyukyazar]

Selamlar. Excell 2003 te çalışan ve her sayfanın adını ( sayfa1,sayfa2,sayfa3) istediğimiz hücrede de göstermemizi sağlayan

=SAĞDAN(HÜCRE("DosyaAdı";A1);UZUNLUK(HÜCRE("DosyaAdı";A1))-MBUL("]";HÜCRE("DosyaAdı";A1)))

bu formül excell 2007 ve 2010 da çalışmıyor. Sebebi ne olabilir acaba ?

 

[Ömer]

Merhaba,
Denedim çalışıyor, nasıl bir hata alıyorsunuz.

 

[modoste]

hata sebebi

=SAĞDAN(HÜCRE("DosyaAdı";A1);UZUNLUK(HÜCRE("DosyaA dı";A1))-MBUL("]";HÜCRE("DosyaAdı";A1)))

adı yazarken boşluk olduğu için çalışmıyo