var olan dosyayı değiştirmek

[abuitun]

iyi akşamlar.
Office içerisinde bir dosyayı farklı kaydederken aynı isimde dosya varsabize aynı isimde ddosya zaten var. var olan dosyayı değiştirmek istiyormusunuz evet- hayır evet cevabınızda dosya nın üzerine kaydedilir.
sorum aynı işlemi excell sayfaları için yapabilirmiyiz.
sayfa1 den sayfa10 kadar sayfalarımız var.
sayfa 1 den bir aktarma yaptık ve yeni sayfanın adı sayfa2 olsun.
aktarma sırasında daha önce sayfa2 adında sayfa olmasına rağmen bu ad içindeki veriler yenisi ile değiştirilerik kopyalama yapabilirmiyiz.

 

[Levent Menteşoğlu]

Elbette yapılabilir, bir örnek dosya eklermisiniz.

 

[abuitun]

var olan dosyanın değiştirilmesi

Sayın Leventm,
ilginize teşekkürler.
dosyayı ekde veriyorum.
maliyet sayfasında verileri girip ürün adına göre aktarma yapıyoruz.
aktarma iki kısımı kapsıyor birincisi maliyet ikinci olarakta maliyetteki bazı değerler veri_girdisi sayfasına aktarılıyor.
örneğin 7 farklı ürün maliyeti girdik. maliyetlerden birinde düzeltme yapmak veya veri eklemek istediğimizde o ürünün sayfasına giderek düzeltme yapabiliyoruz ancak veri sayfasına yeni değerler aktarılmamış oluyor.
bu nedenle üzerinde düzeltme yapılacak ürün sayfası maliyet içerisinde çağrılıp yine aynı isimde aktarma yapmak istiyorum.
umarım sorum anlaşılabilmiştir.
Teşekkürler.

 

[abuitun]

var olan dosyanın değiştirilmesi

İyi akşamlar
maliyet sayfasında verileri girip ürün adına göre aktarma yapıyoruz.
aktarma iki kısımı kapsıyor birincisi ürün adına göre yeni bir maliyet.
ikinci olarakta maliyetteki bazı değerler veri_girdisi sayfasına aktarılıyor.
örneğin 1-2.-3... 7 farklı ürün maliyeti girdik. maliyetlerden birinde düzeltme yapmak veya veri eklemek istediğimizde o ürünün sayfasına giderek düzeltme yapabiliyoruz ancak veri sayfasına yeni değerler aktarılmamış oluyor.
bu nedenle üzerinde düzeltme yapılacak ürün sayfası maliyet içerisinde çağrılıp yine aynı isimde aktarma yapmak istiyorum.
umarım sorum anlaşılabilmiştir.
Teşekkürler.

 

[Levent Menteşoğlu]

Aktar isimli makronuza aşağıdaki mavi renkli satırları ilave edin.

Sub Aktar()
Dim urun, proje, mevcut, mevcuta, mevcutb
[B][COLOR=blue]On Error GoTo 10
Sheets("" & [maliyet!c3]).[a1:p51] = Sheets("maliyet").[a3:p53].Value
Exit Sub
[/COLOR][COLOR=blue]10[/COLOR][/B] urun = LCase(Range("C3").Value)
.
.
.

 

[abuitun]

var olan dosyanın değiştirilmesi

Sayın Leventm,
ilginize teşekkür ederim.
kodları yazdığımda aktarma yaptıktan sonra aktarılan sayfalardan her hangi birisini çağırıp yeni veri girişi yaptıktan sonra aynı isimde yeniden aktarmak istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki makroyu ayrı bir butona bağlayarak verileri maliyet sayfasına çağırın. Daha sonrasında tekrar aynı sayfaya kaydetmek için yukarıda verdiğim mavi renkli satırların ilave edildiği aktar makrosunu çalıştırın.

Sub gericagir()
Set s1 = Sheets("" & [maliyet!c3])
Set s2 = Sheets("maliyet")
s2.[c30:c43] = s1.[c28:c41].Value
s2.[d10:h49] = s1.[d8:h47].Value
s2.[l18:c49] = s1.[l16:l47].Value
s2.[m10:n49] = s1.[m8:m47].Value
End Sub

 

[abuitun]

sayfayı geri çağırma

Sayın Leventm,
Teşekkürler sorunun bir kısmı çözüldü.
maliyet aktarılırken c3:c6 h3:h6 ve p2 deki değerler
veri_girişe aktarılıyor
aşağıdaki kodlarla veri girişindeki değerleride çağırmaya çalıştım ama bir yerlerde hata yapıyorum.

Sheets("VERI_GIRISI").Select

Cells.Find(What:=urun, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate


Range((ActiveCell.Offset(0, 0).Range("a1").Address), (ActiveCell.Offset(0, 8).Address)).Select
Selection.ClearContents
Range("F6:N26").Select
Selection.Sort Key1:=Range("F6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select

Sheets("MGIRISI").Select
Range("A3").Select

ElseIf Range("b1").Value = 1 And LCase(urun) = LCase(proje) Then
Application.ScreenUpdating = False
kodları ile

 

[abuitun]

sayfayı geri çağırma

Herkese iyi günler,
Sayın Leventm nin katkıları ile sorunumun bir kısmını çözümledik ancak maliyet aktarılırken c3:c6 h3:h6 ve p2 deki değerler mevcut ve projeli duruma göre veri_girişe aktarılıyor geri çağırıp düzeltme yaptığımız ürünlerin değişen yeni değerleri veri girişine aktarılmıyor.
düzeltme yaptığımız ürünün değişen değerleri mevcut ve projeli duruma göre veri girişinede birlikte aktarma yapmasını istiyorum.
aşşağıdaki kodları kullandım ama sorun çözülmedi.

Sheets("VERI_GIRISI").Select

Cells.Find(What:=urun, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate


Range((ActiveCell.Offset(0, 0).Range("a1").Address), (ActiveCell.Offset(0, 8).Address)).Select
Selection.ClearContents
Range("F6:N26").Select
Selection.Sort Key1:=Range("F6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select

Sheets("Maliyet").Select
Range("A3").Select

ElseIf Range("b1").Value = 1 And LCase(urun) = LCase(proje) Then
Application.ScreenUpdating = False