Sütundaki Son değeri Başka Sayfaya Aktarma Olayı İle İlgili Yardım

[mesuttasar]

Arkadaşlar önceden şablonunu oluşturduğum bir sayfam var.Bu şablon sayfa üzerinde (E sütununda) gerekli formül girişlerim var.

[I][B]E4 hücresine şu formül yazıldı[/B][/I]
=EĞER(A4="";"";E3+C4-D4)

Userform ile önce bu şablon sayfasından bir tane daha çoğaltıyorum.Sonra yine userform üzerinden yeni eklenen sayfaya veri girişi yapıyorum.Buraya kadar herşey normal.Bundan sonra eklemiş olduğum sayfanın E sütunun son dolu satırındaki (aslında hücerede yukarıdaki formül yazıyor) değeri başka sayfaya eklemek için aşağıdaki kodu yazıyorum ancak sayfaya DOĞRU değeri geliyor.Yardımcı olabilirseniz sevinirim.

 x = Range("E2").End(xlDown).Row
     Sheets("FIRMALAR").Select
     
     [e1] = x

 

[ozgretmen]

Şu şekilde dener misin ?

x = Range("E2").End(xlDown).Row
Sheets("FIRMALAR").Select
[e1] = Sheets("Sayfa1").cells(x,"E").Value

 

[mesuttasar]

Şu şekilde dener misin ?

x = Range("E2").End(xlDown).Row
Sheets("FIRMALAR").Select
[e1] = Sheets("Sayfa1").cells(x,"E").Value

Sayın uzmanım , maalesef olmadı.Dosyayı açıp kapattım tekrar 49 değerini veriyor.Sayfayı ekliyorum.İnceleme imkanınız varsa sorun USERFORM3 te kaydet butonunda.

 

[ozgretmen]

Dosya ekte...Bakar mısın ?

 

[mesuttasar]

Sayın ozgretmen, kodlar karışmış biraz düzelttim tekrar elinize sağlık.

 

[ozgretmen]

Sayın ozgretmen, kodlar karışmış biraz düzelttim tekrar elinize sağlık.

İşinize yaradı mı ?

 

[mesuttasar]

İşime çok yaradı eline sağlık üstadım, haddimi aşarak bişey daha sorayım size.
E1 hücresi yerine firmanın bulunduğu satırın E sütunundaki hücresine o değeri nasıl yazdırabilirim. Bişeyler yapmaya çalışıyorum ama yapamadım.Kusura bakmayın bu arada.

Şöyle bi kod yazdım ama olmadı

x = Sheets(ComboBox1.Value).[B65536].End(3).Row
y = Sheets("FIRMALAR").Columns("B").Find(What:="ComboBox1.Value")
Sheets("FIRMALAR").[B]Cells(y, "E")[/B].Value = Sheets(ComboBox1.Value).Cells(x, "E").Value

 

[ozgretmen]

Eklemiş olduğum dosyadaki ;

Sheets("FIRMALAR").[e1].Value = Sheets(ComboBox1.Value).Cells(x, "E").Value

nun yerine aşağıdaki kodu bir deneyiniz.

Cells(z, 5).Value = Sheets(ComboBox1.Value).Cells(x, "E").Value

 

[mesuttasar]

Üstadım, dediğiniz şekilde yaptım ama herhangi birşey gelmiyor.

Z değişkeni combobox1_change olayından sonra tanımlandığı için FIRMALAR sayfasında değil sanırım bu yüzden FIRMALAR sayfasına herhangi bir veri taşınmıyor.

 

[ozgretmen]

Üstadım, dediğiniz şekilde yaptım ama herhangi birşey gelmiyor.

Z değişkeni combobox1_change olayından sonra tanımlandığı için FIRMALAR sayfasında değil sanırım bu yüzden FIRMALAR sayfasına herhangi bir veri taşınmıyor.

Userformdaki şu kodu kaldırıp dener misiniz ?

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
End Sub

 

[mesuttasar]

Üstadım dediğiniz şekilde yaptım ama userform üzerine girilen bilgiler FIRMALAR sayfasına geldi.Bu bilgilerin, combobox ta seçmiş olduğum firmanın sayfasına yazılması gerekiyordu. FIRMALAR sayfasına sadece , bakiye kısmının , firmanın adının bulunduğu satırın E sütununa gelmesiydi sorunum.

 

[ozgretmen]

Dosyanız ekte...

 

[mesuttasar]

Çok sağolun sayın ozgretmen dosyayı indiriyorum hemen