userformda kaydet ileri geri ....

Katılım
17 Ağustos 2006
Mesajlar
131
Excel Vers. ve Dili
2003 türkçe
Sayin ArkadaŞlar..
User Formumda Kaydet İlerİ Gerİ Komutlarini ÇaliŞtiramadim..
Bİrde Aktar Dİye Bİr Makrom Var Bunu User Formdan Yapmak İstİyorum.. Yardimlarinizi Beklİyorum
 
Katılım
17 Ağustos 2006
Mesajlar
131
Excel Vers. ve Dili
2003 türkçe
:yardim: kaydetti.. çalıştırdım.. ama 15 satır boşluk veriyor..verileri ondan sonra yazmaya başlıyor..şimdiden yardımınız için teşekkürler...
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
b = WorksheetFunction.CountA(Sheets("anasayfa").Range("a:a"))

kodu A22:A33 arasındaki olan verileride sayıyor.Bunun için 15.satırdan kaydetmeye başlıyor.
 
Katılım
17 Ağustos 2006
Mesajlar
131
Excel Vers. ve Dili
2003 türkçe
sayın ripek
baktım ama işin içinden çıkamadım...
şu dosyaya birde siz el atsanız...
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Tüm makrolar baktım ama göremedim.
Anasayfada herhangi bir değişiklik olunca bir hesaplama yapıyor.Bunu anlayamadım.
 
Katılım
17 Ağustos 2006
Mesajlar
131
Excel Vers. ve Dili
2003 türkçe
tablomda bir takım sorunlarım var..

arkadaşlar
1.sorunum a2 ve a9982 girdiğim formüllerin makro aracılığı ile aşağıya formulsüz kopyalanması nasılolabilir
2.sorunum userform ile bilgi girişini yaparken sorun ile karşılaşıyorum
3.sorunum veri aktar esnasında en üstteki veriler ile alt toplamlar sütunundaki veriler aynı değilse hata veriyor.. mesela üste plaka yokken aşağı toplamlarda plaka yazmışsam yeni sheet açarken hata veriyor.. bunları nasıl giderebilirim..

ilgili örneklere baktım ama doğrusu işin içinden çıkamadım....

:yardim: :yardim: :yardim: :yardim: :yardim: :yardim: :yardim: :yardim:
saygılar.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
2.sorunum userform ile bilgi girişini yaparken sorun ile karşılaşıyorum
3.sorunum veri aktar esnasında en üstteki veriler ile alt toplamlar sütunundaki veriler aynı değilse hata veriyor.. mesela üste plaka yokken aşağı toplamlarda plaka yazmışsam yeni sheet açarken hata veriyor.. bunları nasıl giderebilirim..

Birinci sorunuz için aşağıdaki kodu deneyin.

Sub bul()
On Error Resume Next
For a = 2 To [a65536].End(3).Row
If Cells(a, "a") = "" Then GoTo 10
sat = Sheets("araç").[c1:c65536].Find(Cells(a, "a")).Row
Cells(a, "b") = Sheets("araç").Cells(sat, "e")
10 Next
End Sub
2.sorunuzdaki sorunun ne olduğunu açıklarmısınız.

3.sorunuzda topla.çarpım fonksiyonu veriyi bulamadığında hata verir. Bu durumda fonksiyonu EHATALIYSA fonksiyonuyla beraber kullanın. Arama motoruna "EHATALIYSA" yazarak arama yapmanızı öneririm.
 
Katılım
17 Ağustos 2006
Mesajlar
131
Excel Vers. ve Dili
2003 türkçe
1.sorunum a2 ve a9982 girilmiş formülleri aşağıya doğru kopyalanması gerekiyor ama beceremedim
-- daha önce buna benzer soru sormuştum onunla ilgili kodlarda gerekli değişikli yaparak vba anasayfa üzerinde denedim(tablomda halada duruyor), sadece a2 girilen formüllerin üzerinde yapılabilir mi diye ama a3 veri girince excel sayfası kilitleniyor , bunda başarısız oluncada a9982 formülü aşıya makro ile kopyalayabilirmiyim diyede denemedim

2.sorunum userform ile bilgi girişini yaparken sorun ile karşılaşıyorum

--kaydet butonuna basıyorum girilen veri a3 te kalıyor sonraki satırlara verileri kaydedemiyorum.

3.sorunum veri aktar esnasında en üstteki veriler ile alt toplamlar sütunundaki veriler aynı değilse hata veriyor.. mesela üste plaka (a2 kısımlarında) yokken aşağı toplamlarda(a9982 kısmında) plaka yazmışsam yeni sheet açarken hata veriyor.. bunları nasıl giderebilirim..

--zaten ehatalıysa yı denedim,, formül sonucunda bu haneyi boş bırakıyorum ama sonuç yinede başarısız exceli kandıramadık yani.
şimdiden yardımınız için teşekkürler....
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
İkinci sorunuz için aşağıdaki satırdaki 2 rakamını 1 yapın.

Kod:
No = Cells(65536, [COLOR=blue][B]2[/B][/COLOR]).End(3).Row + 1
Birinci sorunuz için aşağıdaki mesajımda bir kod önermiştim. Onu denedinizmi?
 
Katılım
17 Ağustos 2006
Mesajlar
131
Excel Vers. ve Dili
2003 türkçe
sayın leventm


2.sorum için;

dediğiniz gibi yapınca da veri girişine, a9993 deki toplamların sonundaki satırdan sonra başlıyor du ...bende
No = Cells(65536, 2).End(3).Row + 1
65536 YERİNE TOPLAMLARIN BAŞLADIĞI SATIRI A9981 YAZINCA DÜZELDİ..


1. VE 3. SORUNLARIMI NASIL HALLEDEBİLİRİM
 
Son düzenleme:

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Anasayfa isimli sayfanın kod sayfasına aşağıdaki kodu kopyalayın. A sütununa plakayı yazdığınızda bir üst satırdaki formüller aynı satıra kopyalanır.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a3:a9981]) Is Nothing Then Exit Sub
sat = Target.Row
Range("B" & sat).FillDown
Range("H" & sat & ":T" & sat).FillDown
End Sub
 
Katılım
17 Ağustos 2006
Mesajlar
131
Excel Vers. ve Dili
2003 türkçe
1.soru FormÜl Gayet GÜzel ÇaliŞti..
 
Üst