otomatik sağa kaydırma

[incsoft]

Arkadaşlar aylık üretim takibi için kullanmış olduğum 31 sütun ve A3-A403 arasında formüllerin olduğu bir dosyam var. A sütunu bugün ayın 1'i ise B sütunu ise 2'sini temsil etmektedir. Her gün işaretleyerek en alt satırda sağ köşeden çekerek formülü devreye sokuyorum. Satır çok olduğundan dolayı her seferinde seçmek ve çekmek zor olmaktadır. Bunun otomatik olarak istediğim sütuna nasıl yaptırabilirim? Her ayın olduğu gün altına bir buton koysam ve ona formül yazarak bu elle yaptığımı nasıl yapabilirim? Ya da daha basit nasıl bir yöntemle..

Teşekkürler.

 

[Necdet]

Merhaba,

Örnek dosyanızı dosya.tc gibi paylaşım sitelerinden birine yüklerseniz yanıt almanız daha hızlı olur.

 

[incsoft]

http://s7.dosya.tc/server11/ifwtp7/TOPLAM_SORUSU.xlsx.html

 

[incsoft]

Merhaba,

Örnek dosyanızı dosya.tc gibi paylaşım sitelerinden birine yüklerseniz yanıt almanız daha hızlı olur.

http://s7.dosya.tc/server11/ifwtp7/TOPLAM_SORUSU.xlsx.html

 

[Asri]

Arkadaşlar aylık üretim takibi için kullanmış olduğum 31 sütun ve A3-A403 arasında formüllerin olduğu bir dosyam var. A sütunu bugün ayın 1'i ise B sütunu ise 2'sini temsil etmektedir. Her gün işaretleyerek en alt satırda sağ köşeden çekerek formülü devreye sokuyorum. Satır çok olduğundan dolayı her seferinde seçmek ve çekmek zor olmaktadır. Bunun otomatik olarak istediğim sütuna nasıl yaptırabilirim? Her ayın olduğu gün altına bir buton koysam ve ona formül yazarak bu elle yaptığımı nasıl yapabilirim? Ya da daha basit nasıl bir yöntemle..

Teşekkürler.

Formü tüm günler için bir defa da çekip bırakmakta nasıl bir sorun oluyor.
Gördüğüm kadarı ile boş günler boş dolularda ise toplamlar dolu geliyor.

 

[incsoft]

O sütünlardaki veriler metin değil normalde arkadaşlar onlar formül. Ben sizlere formül hesabı yapamayacağı için değere dönüştürdüm.Amacım sadece her defasında mesela a1 den a400 e kadar işaretleyip b kısmınına çekmeyi elle yapmaktan kurtulmak istiyorum. Umarım ne yapmak istediğimi anlatabilmişimdir..

 

[incsoft]

Formü tüm günler için bir defa da çekip bırakmakta nasıl bir sorun oluyor.
Gördüğüm kadarı ile boş günler boş dolularda ise toplamlar dolu geliyor.

Sorun alt toplamda değil onu zaten ayın 31 günü içinde sabit tutuyorum. Amaç şuan da değer olan her hücrede formüllerin olmasından dolayı her seferinde sürekli seçim yapıp sağa çekmekten kurtulmak

 

[Asri]

Sorun alt toplamda değil onu zaten ayın 31 günü içinde sabit tutuyorum. Amaç şuan da değer olan her hücrede formüllerin olmasından dolayı her seferinde sürekli seçim yapıp sağa çekmekten kurtulmak

İlk mesajdaki resim ile şu anda yazdıklarınız ve dosyanız pek tutarlı değil.
Formülleri görelim ki sağa çekerken nasıl bir değişim oluyor ona göre yardımcı olalım.
Formülleri silinmemiş örnek dosyanızı yükler misiniz.

 

[incsoft]

İlk mesajdaki resim ile şu anda yazdıklarınız ve dosyanız pek tutarlı değil.
Formülleri görelim ki sağa çekerken nasıl bir değişim oluyor ona göre yardımcı olalım.
Formülleri silinmemiş örnek dosyanızı yükler misiniz.

Dosyayı pazartesi günü ancak ekleyebilirim çünkü işyerimde arkadaşlar. Yaptırmak istediğimi 1 macro kaydettim ve aşağıda gönderdim. Mesela bu macro B3 deb B403 e kadar seçip formülleri sağa kaydırarak B sütunundaki formülleri bir sonraki güne aktarıyor. 1 sonraki günde mantıken

Range("C3:C403").Select
Selection.AutoFill Destination:=Range("C3DC403"), Type:=xlFillDefault

formülü uygulayacaktır. Anlatamadıysam Pazartesi ekleyeceğim arkadaşlar. Teşekkürler..



Sub Makro1()
'
' Makro1 Makro
'

'
ActiveWindow.ScrollRow = 425
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 3
ActiveWindow.SmallScroll Down:=-18
Range("B3:B403").Select
Selection.AutoFill Destination:=Range("B3:C403"), Type:=xlFillDefault
Range("B3:C403").Select
Range("C384").Select
ActiveWindow.ScrollRow = 378
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 3
Range("B1").Select
End Sub

 

[incsoft]

Private Sub CommandButton3_Click()
Range("B3:B403").Select
Selection.AutoFill Destination:=Range("B3:C403"), Type:=xlFillDefault
Range("B3:C403").Select
End Sub


Bu şekilde oluyor ama arkadaşlar her günün altına buton koymam lazım ve hepsine ayrı ayrı kod belirlemem gerekiyor..

 

[incsoft]

Merhaba,

Örnek dosyanızı dosya.tc gibi paylaşım sitelerinden birine yüklerseniz yanıt almanız daha hızlı olur.

dosyam ekte hocam.

teşekkürler.

 

[incsoft]

arkadaşlar dosyamı ekte sundum yardımcı olabilirseniz sevinirim...

teşekkürler.

 

[YUSUF44]

Dosyada sanıyorum başka dosyaya bağlantı var. Bu nedenle formülün doğru çalışıp çalışmadığını test edemedim. Aşağıdaki formülü C3 hücresinde dener misiniz:

=EĞER(BUGÜN()>=$A$1+SÜTUN()-2;DOLAYLI("'[2018-12--TORNA.xlsm]"&C2&"'!$H$3");"")

 

[incsoft]

Dosyada sanıyorum başka dosyaya bağlantı var. Bu nedenle formülün doğru çalışıp çalışmadığını test edemedim. Aşağıdaki formülü C3 hücresinde dener misiniz:

=EĞER(BUGÜN()>=$A$1+SÜTUN()-2;DOLAYLI("'[2018-12--TORNA.xlsm]"&C2&"'!$H$3");"")

evet hocam dosya başka dosyayla bağlantılı. Burda bu formül ne işe yarayacaktır? 1 ay boyunca günlük olarak çekmeden topluca 1 ayı çekecem bırakacam bu anlamamı geliyor?

 

[YUSUF44]

Evet o anlama geliyor. A1'deki tarihe göre her gün bugünün tarihiyle karşılaştırılıp eğer geçmişse işlem yapıyor, gelmemişse boş bırakıyor.

 

[YUSUF44]

Bu arada DOLAYLI formülünün çalışması için bildiğim kadarıyla diğer dosyanın da açık olması gerekiyor.