Belli bir zamanda veriyi sabitlemek

[evuye]

Merhaba, benim çok arayıp da bulamadığım bir sorum/sorunum var.

Görev yaptığım belediyenin aylık hakedişi yapılan hizmet alımı ihalesi için puantaj ve hakediş cetveli hazırlıyorum. Haliyle her ay değerler değişmektedir. Ancak başka bir bölümde de önceki ayların da değerlerinin yer alması gerekiyor.

Bu konuda makro da denedim. Ama yine de olmadı. Ekteki dosyada ayrıntılı açıklamayı bulabilirsiniz. İlgilenen olursa, başaramasa bile şimdiden teşekkür ederim.

 

[Mehmet Sait]

Veriler dediğiniz tabloyu her ay için oluşturup, değerleri yeşil renkli tabloya sabitleyebilirsiniz

 

[Ömer]

Merhaba,

Tablodaki 693 değerinin hangi aya ait olduğunu belirten bir hücre varmı? Yani bu ölçütü nasıl anlayacağız.

 

[evuye]

Veriler dediğiniz tabloyu her ay için oluşturup, değerleri yeşil renkli tabloya sabitleyebilirsiniz

Ben de onu istiyorum zaten ama nasıl?

 

[Mehmet Sait]

Ben de onu istiyorum zaten ama nasıl?

basit anlamdan sözetmiştim. mesela bende her ay satış için bir çizelge var. Her ay ayrı sayfalarda ama ana ön sayfada sadece aylar kısmı var aylar sayfasındaki veriyi bu kısma getiriyor.

 

[evuye]

basit anlamdan sözetmiştim. mesela bende her ay satış için bir çizelge var. Her ay ayrı sayfalarda ama ana ön sayfada sadece aylar kısmı var aylar sayfasındaki veriyi bu kısma getiriyor.

Hocam nasıl getirdiğini anlayamıyorum. Ekte dosyada gördüğün gibi bende getiriyorum ama, bir sonraki ay da aynı yerden aldığı için her ayın verisi aynı oluyor. O nedenle zaten geçen ayı "kopyala/değerleri yapıştır" ile sabitliyorum.

Benim istediğim kopyala/değerleri yapıştır yapmadan geçmiş olan ayın değerinin sabitlenmesi. "Kopyala/değerleri yapıştır"ı makro ile yapayım diyorum ama her ay farklı sütunu kopyala/değerleri yapıştır yapması gerekeceği için işe yaramıyor.

Nasıl yaparım bilmiyorum.

Anlaşılan bilen de yok zaten.

 

[evuye]

Veriler dediğiniz tabloyu her ay için oluşturup, değerleri yeşil renkli tabloya sabitleyebilirsiniz

O değer raporun hazırlandığı aydan bir önceki aya ait oluyor her zaman. Ben onu halledebiliyorum zaten. Benim halledemediğim kısmı o ay geçtikten sonra değerin sabit kalması.

 

[evuye]

Merhaba,

Tablodaki 693 değerinin hangi aya ait olduğunu belirten bir hücre varmı? Yani bu ölçütü nasıl anlayacağız.

O değer raporun hazırlandığı aydan bir önceki aya ait oluyor her zaman. Ben onu halledebiliyorum zaten. Benim halledemediğim kısmı o ay geçtikten sonra değerin sabit kalması.

 

[Mehmet Sait]

Hocam nasıl getirdiğini anlayamıyorum. Ekte dosyada gördüğün gibi bende getiriyorum ama, bir sonraki ay da aynı yerden aldığı için her ayın verisi aynı oluyor. O nedenle zaten geçen ayı "kopyala/değerleri yapıştır" ile sabitliyorum.

Benim istediğim kopyala/değerleri yapıştır yapmadan geçmiş olan ayın değerinin sabitlenmesi. "Kopyala/değerleri yapıştır"ı makro ile yapayım diyorum ama her ay farklı sütunu kopyala/değerleri yapıştır yapması gerekeceği için işe yaramıyor.

Nasıl yaparım bilmiyorum.

Anlaşılan bilen de yok zaten.

Basit bir örnek işinize yararmı ?

 

[Ömer]

O değer raporun hazırlandığı aydan bir önceki aya ait oluyor her zaman. Ben onu halledebiliyorum zaten. Benim halledemediğim kısmı o ay geçtikten sonra değerin sabit kalması.

Bu şekilde deneyin.
İçinde bulunduğumuz aydan bir önceki ayı 18. satırda arar bulduğu değerin 19. satırına I4 hücresindeki değeri yazar.

Sub Aktar()
 
    Dim tarih As String, c As Range
    
    tarih = Format(DateAdd("m", -1, Date), "mmmm")
    
    Set c = Rows(18).Find(tarih, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Cells(19, c.Column) = Range("I4")
    End If
 
End Sub

 

[evuye]

Bu şekilde deneyin.
İçinde bulunduğumuz aydan bir önceki ayı 18. satırda arar bulduğu değerin 19. satırına I4 hücresindeki değeri yazar.

Sub Aktar()
 
    Dim tarih As String, c As Range
    
    tarih = Format(DateAdd("m", -1, Date), "mmmm")
    
    Set c = Rows(18).Find(tarih, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Cells(19, c.Column) = Range("I4")
    End If
 
End Sub

Çok teşekkür ederim. Aradığım tam olarak bu. Ancak 3 yıllık bir ihalede her aydan birden fazla sayıda var. Yani 3 tane Ocak, 3 tane Aralık, ...
O durumda da hiçbirini yapmıyor.
Onu aşmamızın bir yolu var mı?

 

[Ömer]

Sorunuz net değil, sorunuzu anlamam için sayfa yapınızı görmem gerekiyor. Soruyu özetleyen dosya ekleyerek açıklarmısınız.

 

[evuye]

Sorunuz net değil, sorunuzu anlamam için sayfa yapınızı görmem gerekiyor. Soruyu özetleyen dosya ekleyerek açıklarmısınız.

İhale 3 yıllık olduğu için 18. satırda her aydan 3'er adet oluyor. Bu durumda da hiçbirine yapıştırmıyor. Ekte kısa bir örneği gönderiyorum.

Bu arada bu gönderdiğiniz şey çok ama çok işime yaradı. Çok uzun zamandır arıyordum bunun çözümü. Tekrar teşekkür ederim.

 

[Ömer]

Rica ederim.

18. satırdaki değerler;

01.01.2011 - 01.02.2012 .. şeklinde her ayın 1. günü olarak yazılmış, gerçek tablonuzda da bu şekilde mi? Değilse nasıl?

Aramada hata almamak için bunları bilmem gerekiyor.

 

[evuye]

Rica ederim.

18. satırdaki değerler;

01.01.2011 - 01.02.2012 .. şeklinde her ayın 1. günü olarak yazılmış, gerçek tablonuzda da bu şekilde mi? Değilse nasıl?

Aramada hata almamak için bunları bilmem gerekiyor.

Özür dilerim. Şimdi siteye girebildim.
Önemli olan içinde bulunduğumuz aydan bir önceki ay olması. Yani ayların ayın 1'i veya 2'si olarak gösterilmesi fark etmiyor. Her şekilde bir önceki ayın altına atmalı veriyi.

Ben zaten 18. satıra örneğin "Nisan 2012" şeklinde yazdım. Excel onu o şekilde çevirdi.

Yanıtınızı sabırsızlıkla bekliyorum.

Teşekkür ederim.

 

[Ömer]

Kodları aşağıdakilerle değiştirip denermisiniz.

Sub Aktar()
 
    Dim tarih As Date, c As Range
    
    tarih = DateSerial(Year(Date), Month(Date) - 1, 1)
 
    Set c = Rows(18).Find(tarih, LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Cells(19, c.Column) = Range("I4")
    End If
 
End Sub

.

 

[evuye]

kodları aşağıdakilerle değiştirip denermisiniz.

sub aktar()
 
    dim tarih as date, c as range
    
    tarih = dateserial(year(date), month(date) - 1, 1)
 
    set c = rows(18).find(tarih, lookın:=xlformulas, lookat:=xlwhole)
    ıf not c ıs nothing then
        cells(19, c.column) = range("ı4")
    end ıf
 
end sub

.

mükemmel! Muazzam! şahane!

Bunu ne kadar zamandır aradığımı bir bilseniz...

çok teşekkür ederim.

 

[evuye]

Kodları aşağıdakilerle değiştirip denermisiniz.

Sub Aktar()
 
    Dim tarih As Date, c As Range
    
    tarih = DateSerial(Year(Date), Month(Date) - 1, 1)
 
    Set c = Rows(18).Find(tarih, LookIn:=xlFormulas, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Cells(19, c.Column) = Range("I4")
    End If
 
End Sub

.

Hocam üzülerek söylüyorum beceremedim.
Ben bunu kendi dosyama ve birden fazla yapmam gerekiyordu ama yapamadım.
Gerçek dosyayı gönderiyorum. Eğer uygulayabilirseniz minnettar olurum.
(Konu "Aylik Gerceklesmeler" sekmesinde)

 

[Ömer]

Tablodaki açıklamalar ile tablo birbiriyle örtüşmyor,

Örnek1, "13. satırda tarihler bulunuyor." 13.satırda tarih yok.
Örnek2, "Benim yapmak istediğim yeşil tablodaki" bu sayfada yeşil tablo yok.

Gibi birçok hatalı açıklama var. Sorunuzu daha özenli ve detaylı açıklayınız.

 

[evuye]

Tablodaki açıklamalar ile tablo birbiriyle örtüşmyor,

Örnek1, "13. satırda tarihler bulunuyor." 13.satırda tarih yok.
Örnek2, "Benim yapmak istediğim yeşil tablodaki" bu sayfada yeşil tablo yok.

Gibi birçok hatalı açıklama var. Sorunuzu daha özenli ve detaylı açıklayınız.

Açıklama yazdıkça tablo aşağıya kaymış ve 13. satır 17. satır olmuş.
En üstteki tabloyu da yeşile boyamayı unutmuşum.
Özür dilerim.
Doğru açıklamaların yer aldığı dosyayı ekte gönderiyorum.
Teşekkür ederim.