If IsNumeric(Sheets("sayfa1"). Cells Or Sheets("sayfa1"). Cells(y, x - 1) = " " Then

deneme yapıp sonuçlarını görmeniz için ösym nin kılavuzlarının linkleri

bu başlık iyi olmuş atama döneminde faydalı olur

benden bir önceki mesajdaki askerlik konusuna dedim... yanlış anlaşılma olmasın... yoksa merak etme çabalayan insanlara saygımız var bende onlardan biriyim...

sen de yap

Next a

Columns . Select

If Sheets("sayfa2"). Cells = "4639" Then

159 a sallama diyen şuursuz insan hem oturduğun yerden bilgi bekliyorsunuz hem bi şey ler öğrenmek için çabalayan ve öğrendiklerini paylaşan insanlara saygısızlık yapıyorsunuz emeğe saygı biraz

acaba hangi kurumlar alım yapacak?

Sheets("sayfa2"). Cells(son, 10) = Sheets("sayfa1"). Cells(y, x + 6)

Sheets("sayfa3"). Cells(1, 5) = "KADRO SAYISI"

Dim y As Integer

ilk sayfaya yazdım bakalım nolcak :P

Sheets("sayfa2"). Select

Sheets("sayfa2"). Cells(son, 7) = Sheets("sayfa1"). Cells(y, x + 3)

sallama olayını bana diyorsan ben 159 sayısına demedim arkadaşım :)

), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _

GoTo 10

:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _

Sheets("sayfa2"). Cells(son, 9) = Sheets("sayfa1"). Cells(y, x + 5)

hadi hayırlısı...

Range("A1"). Select

46, 1), Array(47, 1), Array(48, 1), Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), _

Sheets("sayfa2"). Cells(son, 6) = Sheets("sayfa1"). Cells(y, x + 2)

yok arkadaşım öyle birşey herkes sallıyor bişeler merak etme sen :)

Next b

Sheets("sayfa2"). Cells(son, 8) = Sheets("sayfa1"). Cells(y, x + 4)

Herkese iyi geceler arkadaşlar. 24 ocakta kılavuza ulaşacağız, ancak kılavuz uzun olabileceği için ( 6500 kadroda uzunluk pek olmaz ama neyse ) şimdiden sizlere yardımcı olsun diye bi excel makrosu hazırladım. böylece saniyeler içerisinde Makine Mühendisleri için kaç kadro nereye açılmış görebileceksiniz. tabi kesin bir bilgi olmayacak şimdiden söyleyeyim. hiç kimse bu bilgilere göre tercih yapmasın sadece amacım kaç kadro açıldığını hızlı bir şekilde görmeniz içindir. doğruluğu kesin değildir. Lütfen tercih işlemlerinizi kılavuza göre yapınız.

Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _

Bi totem de biz yapalım madem

Array(79, 1), Array(80, 1), Array(81, 1), Array(82, 1), Array(83, 1), Array(84, 1)), _

33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), _

Dim sonsatır As Integer

Dim son As Integer

Next y

Sheets("sayfa2"). Cells(son, 12) = Sheets("sayfa1"). Cells(y, x + 8)

Sheets("sayfa3"). Select

Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _

If Sheets("sayfa1"). Cells(y, x - 1) = "KİLİS" Or Sheets("sayfa1"). Cells(y, x - 1) = "ÇANAKKALE" Then

Dim b As Integer

Sheets("sayfa2"). Cells(son, 14) = Sheets("sayfa1"). Cells(y, x + 10)

sonsatır = Sheets("sayfa3"). Cells(65536, 2). End . Row + 1

excel kodları da temizdir. isteyen içeriğine bakabilir...

Sheets("sayfa2"). Cells(son, 19) = Sheets("sayfa1"). Cells(y, x + 15)

160 kişinin 120 tanesi 90 üzeri olur diyorum.

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _

For b = 2 To Sheets("sayfa2"). Cells(a, 256). End . Column

Dim x As Integer

For x = 2 To Sheets("sayfa1"). Cells(y, 256). End . Column

Sheets("sayfa3"). Cells(1, 6) = WorksheetFunction. Sum(Sheets("sayfa3"). Range("E1:E1000"))

Umarım bu başlıklı form şans geitirir, herkes hak ettiği yere girer İnşaallah.

birleştir = ""

son = 0

GoTo 30

59, 1), Array(60, 1), Array(61, 1), Array(62, 1), Array(63, 1), Array(64, 1), Array(65, 1), _

Application. ScreenUpdating = False

kardeş şu askerlik ile ilgili kodları açıklarmısın.6001 6003 6005 kodları kaldırılıcak diyolardıı. neoldu? arkadaşın birisi askerliğini yapmayan başvuramıyor diye bişi yazmışş da?

Sheets("sayfa2"). Cells(son, 4) = Sheets("sayfa1"). Cells

kasım-2008:ftp://dokuman. osym.gov.tr/KPSS_2008_4_YER_KLVZ/kadrolar84_lisans. pdf

Sheets("sayfa2"). Cells(son, 15) = Sheets("sayfa1"). Cells(y, x + 11)

Sheets("sayfa2"). Cells(son, 18) = Sheets("sayfa1"). Cells(y, x + 14)

End If

EXCEL LİNKİ: http://rapidshare.com/files/444014892/lostlosteng-subat2011-kadrotahmini. xls

sonsatır = 0

Array(66, 1), Array(67, 1), Array(68, 1), Array(69, 1), Array(70, 1), Array(71, 1), Array( _

Selection. TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

Sheets("sayfa2"). Cells(son, 5) = Sheets("sayfa1"). Cells(y, x + 1)

Sheets("sayfa2"). Rows . Select

For a = 2 To Sheets("sayfa2"). Cells(65536, 2). End . Row

GoTo 20:

atama atama atama ne olacak biz makinacıların hali allah canımızı alsada kurtulsak...

mayıs 2010:http://www.osym.gov.tr/dosya/1-53022/h/kadrolar20101lisans. pdf

Sheets("sayfa2"). Cells(son, 2) = birleştir

sayı gerçekten 159 mu?

Array(40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array( _

Sub SONUC

2010 puanıyla ilk kadrolu atama. çok az kaldı. heyecan dorukta.

mayıs-2009:http://www.osym.gov.tr/dosya/1-50457/h/kadro93lisans. pdf

Next i

yapmanız gereken tek şey kılavuz yayımlandıktan sonra adobe acrobat reader ile açıp tüm bilgileri kopyalayıp excel sayfasında bulunan butona basmanız yeterli. saniyeler içerisinde makine mühendisleri için kaç kadro ve nereye ne kadar gelmiş görebileceksiniz.

Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _

(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _

ActiveSheet. Paste

birleştir = birleştir & " " & Sheets("sayfa1"). Cells

Selection. Copy

TrailingMinusNumbers:=True

72, 1), Array(73, 1), Array(74, 1), Array(75, 1), Array(76, 1), Array(77, 1), Array(78, 1), _

On Error Resume Next

For i = 1 To x - 1

Sheets("sayfa2"). Cells(son, 17) = Sheets("sayfa1"). Cells(y, x + 13)

Sheets("sayfa2"). Cells(son, 20) = Sheets("sayfa1"). Cells(y, x + 16)

Sheets("sayfa2"). Cells(son, 3) = Sheets("sayfa1"). Cells(y, x - 1)

Sheets("sayfa2"). Cells(son, 16) = Sheets("sayfa1"). Cells(y, x + 12)

Sheets("sayfa1"). Select

For y = 1 To Sheets("sayfa1"). Cells(65536, 1). End . Row

Dim birleştir As String

son = Sheets("sayfa2"). Cells(65536, 2). End . Row + 1

End Sub

Sheets("sayfa2"). Cells(son, 13) = Sheets("sayfa1"). Cells(y, x + 9)

Dim a As Integer

Sheets("sayfa3"). Rows . Select

önceki atamalarda yayımlanan kılavuzlarda denedim ve hepsinde makine mühendislerine açılan kadroların sayısını düzgün verdi. eğer yine aynı formatta kılavuzu yayımlarlarsa doğru sonucu verecektir.

Sheets("sayfa2"). Cells(son, 11) = Sheets("sayfa1"). Cells(y, x + 7)

Array(53, 1), Array(54, 1), Array(55, 1), Array(56, 1), Array(57, 1), Array(58, 1), Array( _

kasım-2009:http://www.osym.gov.tr/dosya/1-51388/h/kadrolar296lisans. pdf

Application. ScreenUpdating = True

Next x