imkansız gibi bir excel isteği

kolaycılığın da bu kadarı. aslında hiç umudum yok. ama duyuru'muz var madem, soralım, belki bir şekilde yolu vardır.

şimdi bir excel dosyam var. bu excel dosyamın içinde 100 küsur tane sheet var. cari hesap takip ediyorum bununla. sheet'lerden her biri bir müşteri. şimdi her ay başında müşterilerin hesabına 100 lira tahakkuk yapmamlazımi müşteri yatırdıkça da girip ödemesini yazmam lazım. ben ne yapıyorum, ilk müşteriye girip 01.11.2008 / Aidat Tahakkuku / 100,00 yazıyorum ve copy yapıyorum. Sonra da her bir sheet'e gidip sıradaki boş satıra paste yapıyorum. yüzlerce kişi için tek tek yapıyorum bunu. istediğim ne? ben tek sefer yazayım, zart diye hepsinin ilk boş satırına bu dediğim yapışsın.

sheet'lerin hepsini seçip paste demek çözüm değil, çünkü her sheet'in sıradaki boş satırının numarası farklı. kiminde ilk boş satır 25 iken, kiminde 17, kiminde 35. öyle bir şey istiyorum ki ilk boş satırı anlasın, oraya paste yapsın. haa bir de satır bomboş değil. bakiye sütunlarında (son 2 sütun) formül var.

kibritsuyu #50736

VBA ile halledebilirsin bunu..
--tabi VBA bilgin nasıldır bilemiyorum.--

müsait olunca bir iki kod yazmaya çalışırım...

EDIT:VBA bilgin ne kadardır biraz izah edersen ona göre cvp yazayım

€xpolerer (17.12.08 09:57:26 ~ 10:12:41)

tam olarak istediğiniz şey olmasa da ( çok yararlı da değil farkındayım ama sırf bilin diye söylüyorum ) şöyle bir seçenek mevcut.

diyelim ki ilk müşterinin sayfasındasınız b28 e 100 ytl yazdınız
ikinci müşterinin sayfasına gidiyorsunuz ve = le başlayıp ilk müşterinin sayfasına gidiyorsunuz 100ytl yazdığınız hücreye gelip enter a basıyorsunuz böyle bir formül mevcut

evet pek de farklı değilsizin yaptığınızdan ve her ay tekrarlamanız lazım

aynen butarzda bi exceli kızarkadaşım için hazırlamıştım ama onunkinde şöle bişi yaptık
hani siz diosunuzya ilk boşsatırı anlasın öle bişi yok zaten ama resimde gösterdiğinizden biraz daha farklı bi şekilde bi tablo ve formülleme yaparak bunu yapmak mümkün

charlesbukowskiineksi (17.12.08 09:58:24 ~ 09:58:37)

neyse ben de yazayımda işine yararsa kullanırsın

sürekli 100ytl olmayacağını farz ederek a b ve c hücrelerine gireceğin değerleri en başta senden isteyecek (eğer diğer hücrelere de birşeyler yazman gerekecekse koda ekleme yapmak gerek)

@galadnikov dediği gibi alt F11 ile vb düzenleyicisini aç.
sol taraftaki pencereden ThisWorkbook simgesine çift tılayıp açılan beyaz sayfaya aşağıdaki kodları yapıştır.

makrolardan Duzenle isimli makroyu çalıştır.

NOT: Dosyanın mutlaka yedeğini al. sonra kulaklarımızı çınlatma :)

Sub Duzenle()
Dim hucre As Integer
Dim SayfaSayisi
Dim Ahucresi As String
Dim Bhucresi As String
Dim Chucresi As String

Ahucresi = InputBox("A hücresi için değer giriniz")
Bhucresi = InputBox("B hücresi için değer giriniz")
Chucresi = InputBox("C hücresi için değer giriniz")
''' buraya ekleme yapabilirsin

For SayfaSayisi = 1 To ThisWorkbook.Worksheets.Count
hucre = 1

'BOŞ HÜCREYİ BULUR --A sütünunda arada boş hücre oladığını kabul ediyorum...
Do While Len(ThisWorkbook.Sheets(SayfaSayisi).Range("a" & hucre)) <> 0
hucre = hucre + 1
Loop

ThisWorkbook.Sheets(SayfaSayisi).Range("a" & hucre).Value = Ahucresi
ThisWorkbook.Sheets(SayfaSayisi).Range("b" & hucre).Value = Bhucresi
ThisWorkbook.Sheets(SayfaSayisi).Range("c" & hucre).Value = Chucresi
''EĞER YUKARI EKLEME YAPTIYSAN BURAYA DA EKLEMEN GEREK

Next
End Sub

€xpolerer (17.12.08 10:57:08 ~ 11:03:33)

yalniz su duyuruya verilen cevaplari okuyunca hepsine ikiser ücer tane tik koyasim geldi. :)

zeykur valekov (17.12.08 11:11:50)

ben "artıyla formüle başla " diyorum adamlar kod yazmış

charlesbukowskiineksi (17.12.08 11:34:39 ~ 11:45:48)

vallahi emeğe saygı. daha deneyemedim ama hemen deniyorum. teşekkürler. olsa da teşekkürler, olmasa da teşekkürler.

kibritsuyu (17.12.08 12:32:27)

ben bu kodu yazıldıktan tam 4 sene kullandım, çalışıyor. duyuru'nun gözünü seveyim ya... çok teşekkürler.

bcdhms (28.12.12 11:36:36)

vay be hakkatten 4 sene olmuş :)

€xpolerer (28.12.12 13:39:01)

buraya yazılanların hakları Sir Anthony Hopkins'e aittir.
yazan eden compumaster, ilgilenen eden fader
modere edenler angelus, Artibir, aychovsky, baba jo, basond, compumaster, deckard, duyulmasi gerektigi kadar, fader, fraise, groove salad, kahvegibi, kaymaktutmayansicaksut, kibritsuyu, monstro, pandispanya, robin, ron dennis
bu sitede yazılanların hiçbiri doğru değildir. site içeriği küçükler için sakıncalı olabilir. yazılardan yazarları sorumludur. kaynak göstermeden alıntılanamaz. devlet tarafından atanmış bir kurumun internet üzerinde kimin hangi bilgiye ulaşıp ulaşamayacağına karar vermesi insan haklarına aykırıdır. web siteleri kullanıcıların istekleri doğrultusunda bağlandıkları yerlerdir. kullanıcılar isterlerse bir web sitesine bağlanmayabilirler. bu güçleri ve imkanları mevcuttur. bir kullanıcı bir siteye bağlanmak istiyorsa bu onun tercihi ve hakkıdır. bağlanmak istemiyorsa bu yine onun tercihi ve hakkıdır. halkın kendisine hizmet etmesi için görevlendirdiği kurumlar hadlerini aşıp halka neye ulaşıp ulaşmayacağını bilmeyen cahil cühela muamelesi edemezler. ebeveynlerin çocuklarını sakıncalı içeriklerden koruması için çok sayıda bedava ve ücretli yazılım mevcuttur. bu yazılımlar bir web tarayıcısını kullanmaktan daha karmaşık teknik bilgi gerektirmemektedir. devletin milletini küçük düşürmesi ve ebleh yerine koyması yasaktır. Skimlinks ile linkler üzerinden yönlendirme payı alınmaktadır.

Lütfen Javascript desteği bulunan bir tarayıcı kullanın. Bir hata olduğunu düşünüyorsanız tarayıcınızın veya (varsa) antivirüs yazılımınızın ayarlarını kontrol edin.

Ekşi Duyuru

imkansız gibi bir excel isteği