userformda kaydet ileri geri ....

[sisozen]

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

 

[Recep İpek]

Aşağıdaki link size bu konuda fikir verebilir.

http://www.excel.web.tr/showthread.php?t=19472

 

[sisozen]

: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...

 

[Recep İpek]

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.

 

[sisozen]

sayın ripek
baktım ama işin içinden çıkamadım...
şu dosyaya birde siz el atsanız...

 

[sisozen]

dosyam ekte........

 

[Recep İpek]

Tüm makrolar baktım ama göremedim.
Anasayfada herhangi bir değişiklik olunca bir hesaplama yapıyor.Bunu anlayamadım.

 

[sisozen]

yinede yardımınız için teşekkür ederim..

 

[sisozen]

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.

 

[sisozen]

:???: :???:

 

[sisozen]

:???: :???:

 

[Levent Menteşoğlu]

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.

 

[sisozen]

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....

 

[sisozen]

:yardim: :yardim:

 

[Levent Menteşoğlu]

İkinci sorunuz için aşağıdaki satırdaki 2 rakamını 1 yapın.

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?

 

[sisozen]

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

 

[sisozen]

LÜtfen Tabloya Bakiniz

 

[Levent Menteşoğlu]

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.

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

 

[sisozen]

1.soru FormÜl Gayet GÜzel ÇaliŞti..