satır karıştırma (acil)

[eaglecarsi88]

merhaba arkadaşlar
excelde satır karıştırmayla ilgili bir problemim var
satır karıştırma yaparken a ve h sütünlarının sabit kalmasını istiyorum. böyle bir şey yapılabilir mi?
ayrıca listeye yeni birini eklediğimde yazdır kodunu tekrardan değiştirmem gerekiyor. Bunun bir çözümü var mı? şimdiden teşekkürler.

 

[eaglecarsi88]

http://www.excel.web.tr/f142/rastgele-sayy-retme-t58558/post551089.html

satır karıştırmayı şu şekilde hallettim sanırım. yalnız yazdır konusunda bir sonuç elde edemedim. listedeki son öğrenci sayısı kadar ikinci sayfada çıktı almam gerekiyor.

 

[suleyman242]

http://www.excel.web.tr/f142/rastgele-sayy-retme-t58558/post551089.html

satır karıştırmayı şu şekilde hallettim sanırım. yalnız yazdır konusunda bir sonuç elde edemedim. listedeki son öğrenci sayısı kadar ikinci sayfada çıktı almam gerekiyor.

Private Sub CommandButton3_Click()
Sheets("B").Select
say = Sheets("B").[A65536].End(3).Row
yazici = (((say - 1) - ((say - 1) Mod 7)) / 7) + 1
Sheets("B").PageSetup.PrintArea = "B!a1:i" & say
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=yazici, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

End Sub

 

[eaglecarsi88]

Private Sub CommandButton3_Click()
Sheets("B").Select
say = Sheets("B").[A65536].End(3).Row
yazici = (((say - 1) - ((say - 1) Mod 7)) / 7) + 1
Sheets("B").PageSetup.PrintArea = "B!a1:i" & say
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=yazici, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

End Sub

Teşekkürler suleyman242. Yalnız bu kodu yazdığım zaman "B" sayfasındaki sayfaların tümünü çıkarıyor. İstediğim kod listenin olduğu sayfadaki öğrenci sayısı kadar "B" sayfasında çıktı alabilmek. Yinede teşekkürler.

 

[suleyman242]

Teşekkürler suleyman242. Yalnız bu kodu yazdığım zaman "B" sayfasındaki sayfaların tümünü çıkarıyor. İstediğim kod listenin olduğu sayfadaki öğrenci sayısı kadar "B" sayfasında çıktı alabilmek. Yinede teşekkürler.

kodu bu şekilde düzenleyiniz. Veri sayfasındaki öğrenci sayısınca çıktı alıcaksınız.

Private Sub CommandButton3_Click()

[COLOR="Red"][B]yazici = Sheets("10B").[A65536].End(3).Row[/B][/COLOR]

Sheets("B").PageSetup.PrintArea = "B!a1:i" & say
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=yazici, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

End Sub

 

[eaglecarsi88]

kodu bu şekilde düzenleyiniz. Veri sayfasındaki öğrenci sayısınca çıktı alıcaksınız.

Private Sub CommandButton3_Click()

[COLOR="Red"][B]yazici = Sheets("10B").[A65536].End(3).Row[/B][/COLOR]

Sheets("B").PageSetup.PrintArea = "B!a1:i" & say
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=yazici, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

End Sub

teşekkürler. ama hata veriyot kod. sanırım "say" tanımlanmadığı için olabilir. ilk yazdıgınız kodda sayfa adını değiştirince de öğrenci sayısı kadar çıktı vermiyor yine. listede yazılan satır sayısı kadar ikinci B sayfasında çıktı veriyor. yani oda 7 sayfaya denk geliyor.

 

[eaglecarsi88]

Private Sub CommandButton3_Click()
Sheets("B").Select
say = Range("10b!k24").Value
yazici = (((say - 1) - ((say - 1) Mod 7)) / 7) + 1
Sheets("B").PageSetup.PrintArea = "B!a1:i" & say
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=yazici, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

End Sub

kodu şu şekilde değiştirdim.k24 hücresinede şu formülü yazdım:

=MAK(A2:A600)*7

bu şekilde hallettim. yardımınız için teşekkürler suleyman242.

 

[suleyman242]

Private Sub CommandButton3_Click()
Sheets("B").Select
say = Range("10b!k24").Value
yazici = (((say - 1) - ((say - 1) Mod 7)) / 7) + 1
Sheets("B").PageSetup.PrintArea = "B!a1:i" & yazici [COLOR="Red"][B]'say[/B][/COLOR]
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=yazici, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False

End Sub

kodu şu şekilde değiştirdim.k24 hücresinede şu formülü yazdım:

=MAK(A2:A600)*7

bu şekilde hallettim. yardımınız için teşekkürler suleyman242.

Bende teşekkür ederim Kolay gelsin
Koddaki hatayı yeni farkettim
say yerineyazici kelimesi