sayfalar arası kosula baglı ve degisken veri aktarımı

[Eser Gökay]

Arkadaslar problemimi dosyada acıkladım.

Herkese simdiden tesekkur ediyorum.

 

[Orion1]

1nşık sorunuz makro yazılarak sorun çözülebilir.Fakat sütun başlıkları sıralı değil bu çözümü uzartacak.Hiç olmazsa bir sayfada sütun başlıkları aynı sırada olsalar.Yani bir sayfada 456
ise diğer sayfada 123 şeklinde bile olsa dağa iyi olur.Sıralı gitmesi iyi olur kanaatindeyim.

 

[Eser Gökay]

1.sayfadaki baslıklarla ikinci sayfadaki baslıklar aynı sıra.... bu benim isleyisim acısından sıkıntılı olur. ama is kolaylasacaksa neden olmasin. tsekkur ediyorum. duzeltmelerimi yapip tekrar atiyorum...

 

[Necdet]

Sayın Muhasebecieser,

Dosyanızda Gid sayfasında sıra numaraları için B4 formülü yazın ve aşağıya doğru kopyalayın

=IF(MOD(ROW();30)=4;1;B3+1)
=EĞER(MOD(SATIR();30)=4;1;B3+1)

Formülü c sütunu dolu ise diye de kontrol etme olanağı var fakat dosyo büyür diye düşünmedim.

 

[Eser Gökay]

Sayın Sezar dosyayı yeniden duzenledim. bir goz atarsaniz sevinirim.

 

[Eser Gökay]

pardon dosya eklenmemis

 

[Orion1]

Sayın Sezar dosyayı yeniden duzenledim. bir goz atarsaniz sevinirim.

Merhaba.
Dosyayı dağa önceki dosyayı eklediğiniz mesajınızdan indirdim.Bir değişiklik yok.
Mesela Gid sayfasında Adresi adlı sütun başlığından sonra Vergi dairesi sütun başlığı gelmekte iken Kdv list sayfasında adresi sütun başlığından sonra Tarih gelmekte.

 

[Eser Gökay]

evet sayın sezar browser'da problem yasadım su an ekledim....

 

[Necdet]

Bizim mesaj gümbürtüye gitti sanırım

 

[Eser Gökay]

Bizim mesaj gümbürtüye gitti sanırım

estagfrullah üstad. sizin mesaj gumburtuye gitmedi de. benim her otuz satırlık alanım standart olarak 30'ar 30'ar 1200 satıra kadar devam ediyor. her hücreyi 1,2,3, diye devam ettirmek yerine hucreleri formulle doldurmak dosya boyutu acisindan daha sıkıntılı olacak kanısındayım. yanılıyorsam duzeltin lutfen.... yazdıgınız formulleri not ettim. dosyayı tamamlarken mutlaka iseye yarayacaktır. gereksiz bilgi yoktur hocam

 

[Necdet]

Sayın Muhasebecieser,

Yazalım küçük bir kod, bir düğmeye bağlayın canının istediğinde tıklayın ona sıra numarasını kendisi versin, hem dosya büyümez hemde numaralandırmış olursunuz.

Aşağıdaki kodu E hücresindeki dolu hücre kadar çalıştırır.

Public Sub SiraNo()
SonSatır = [E65536].End(3).Row
For i = 4 To SonSatır
    j = j + 1
    If j > 30 Then j = 1
    Cells(i, "B") = j
Next i
End Sub

Bu kodu bir düğmeye bağlayın ve çalıştırın.

 

[Eser Gökay]

hocam tesekkur ediyorum. faydali bir bilgi oldu. sagolun.

 

[Orion1]

Bizim mesaj gümbürtüye gitti sanırım

Merhaba.
Sayın Muhasebecieser ,Sayın Necdet_Yesertener Hocamın Mesajını okudunuzmu?O mesajda da Sayın Hocam Formülle bir çözüm bulmuş.

 

[Eser Gökay]

Evet sayın sezar sayın hocamın yazdıgını okudum. yanlıs anlamadıysam hocamın yazdıgı formül B4 teki sıra numaraları icindi. yanılıyorsam duzeltin lutfen...

 

[Eser Gökay]

dosyanın guncellenmis seklini attım bu arada bakma fırsatınız oldumu ustadlarım...

 

[Orion1]

Merhaba.
Dosyanız ekte Rapor butonuna basıyorsunuz KDV si boş olanlar hariç listeleme yapıyor.
Ekli dosyayı inceleyiniz.

Sub rapor()
Dim sonsat As Long, sat As Long, adr1 As String, adr2 As String
Sheets("KdvList").Select
sonsat = Sheets("Gid").Cells(65536, "E").End(xlUp).Row
Sheets("KdvList").Range("A7:M65536").ClearContents
sat = 7
For i = 4 To sonsat
    If Sheets("Gid").Cells(i, "N") <> "" Then
        adr1 = Range(Cells(i, "E"), Cells(i, "N")).Address
        adr2 = Range(Cells(sat, "A"), Cells(sat, "J")).Address
        Sheets("KdvList").Range(adr2).Value = Sheets("Gid").Range(adr1).Value
        Sheets("KdvList").Cells(sat, "M").Value = Sheets("Gid").Cells(i, "P").Value
        sat = sat + 1
    End If
Next i
MsgBox "R A P O R   G Ü N C E L L E N D İ ..!!", vbOKOnly
End Sub

 

[Eser Gökay]

cok tesekkur ediyorum. umarım aynı konuda rahatsız etmek zorunda kalmam sagolun. ellerinize saglık

 

[Orion1]

Rica ederim.
İyi çalışmalar.