ANA PARA                      ZEKATI ÖDENECEK DEĞER    

      YIL                                      ZEKATI ÖDENMEMİŞ YIL       

          MINDCELL 

AutoCad , Haritacılık ,Visual Basic 

Örnek dosya

 İşaretlediğin noktaların kordınatlarını  en son işaretlediğin noktaya  otomatık olarak toplu yazar.

al ötele ve dondur  komutu  , sc ölçek ayarla komutu 

tracert paketlerin hagi yolları takıp ettiğini gösterir
msconfig windows başlarken
nslookup internet ip
sc komutu milimetre ile cizilmişi metreye , metyreden m,l,metreye cevirmek için
al komutu ile ile hareket ettir ve döddür demek

Private Sub CommandButton1_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim nokta As AcadPoint
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' Dim noktak(0 To 2) As Double
'objciz.startPoint(1) = startPoint(1)

a = ThisDrawing.ModelSpace.Count

'ThisDrawing.ModelSpace.Item(I)
For I = 0 To a - 1



If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadLine Then
Set objciz = ThisDrawing.ModelSpace.Item(I)
b = objciz.startPoint(0)
c = objciz.startPoint(1)


'd = objciz.endPoint(0) -1023410170
' e = objciz.endPoint(1)
al = Round(b, 3) & " :" & Round(c, 3)
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then ListBox1.AddItem (al)

If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then textString = al
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = TextBox3.Text
' If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = 0.5
' Create the text object in model space
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
End If

Next




End Sub

Private Sub CommandButton2_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor

Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double

'objciz.startPoint(1) = startPoint(1)

a = ThisDrawing.ModelSpace.Count

'ThisDrawing.ModelSpace.Item(I)
For I = 0 To a - 1

If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadLine Then
Set objciz = ThisDrawing.ModelSpace.Item(I)
b = objciz.startPoint(0)
c = objciz.startPoint(1)


'd = objciz.endPoint(0) -1023410170
' e = objciz.endPoint(1)
al = Round(b, 3) & " :" & Round(c, 3)
If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then ListBox1.AddItem (al)

If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 255 And objciz.TrueColor.Blue = 0 Then textString = al
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 255 And objciz.TrueColor.Blue = 0 Then insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 255 And objciz.TrueColor.Blue = 0 Then height = TextBox3.Text
' If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = 0.5
' Create the text object in model space
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 255 And objciz.TrueColor.Blue = 0 Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)


End If

Next

End Sub

Private Sub CommandButton3_Click()

Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor

Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double

'objciz.startPoint(1) = startPoint(1)

a = ThisDrawing.ModelSpace.Count

'ThisDrawing.ModelSpace.Item(I)
For I = 0 To a - 1

If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadLine Then
Set objciz = ThisDrawing.ModelSpace.Item(I)
b = objciz.startPoint(0)
c = objciz.startPoint(1)


'd = objciz.endPoint(0) -1023410170
' e = objciz.endPoint(1)
al = Round(b, 3) & " :" & Round(c, 3)
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then ListBox1.AddItem (al)

If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then textString = al
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then height = TextBox3.Text
' If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = 0.5
' Create the text object in model space
If objciz.TrueColor.Green = 0 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 255 Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)


End If

Next




End Sub

Private Sub CommandButton4_Click()

Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim ssetObj As AcadSelectionSet
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double

'objciz.startPoint(1) = startPoint(1)

a = ThisDrawing.ModelSpace.Count
'UserForm1.Caption = a
'ThisDrawing.ModelSpace.Item(I)
For I = 0 To a - 1

If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadLine Then
Set objciz = ThisDrawing.ModelSpace.Item(I)
b = objciz.startPoint(0)
c = objciz.startPoint(1)



'd = objciz.endPoint(0) -1023410170
' e = objciz.endPoint(1)
al = Round(b, 3) & " :" & Round(c, 3)
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
ListBox1.AddItem (al)

'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
textString = al
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
height = TextBox3.Text
' If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then height = 0.5
' Create the text object in model space
'If objciz.TrueColor.Green = 255 And objciz.TrueColor.Red = 0 And objciz.TrueColor.Blue = 0 Then
Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)


End If

Next




End Sub

Private Sub CommandButton5_Click()

End Sub

Private Sub CommandButton1_Click()

Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim nokta As AcadPoint
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
a = ThisDrawing.ModelSpace.Count
height = TextBox1.Text
j = 0
e = 0
For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadPoint Then e = e + 1
Next I

For I = 0 To a - 1

If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadPoint Then
Set nokta = ThisDrawing.ModelSpace.Item(I)
b = nokta.Coordinates(0)
c = nokta.Coordinates(1)
insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
j = j + 1
al = (j) & " =" & Round(b, 3) & " :" & Round(c, 3)
textString = al
ListBox1.AddItem (textString)


If j < e Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)

End If

TextBox2.Text = Round(b, 3)
TextBox3.Text = Round(c, 3)

Next


j = 0
d = TextBox2.Text
k = TextBox3.Text

For I = 0 To a - 1
If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadPoint Then
Set nokta = ThisDrawing.ModelSpace.Item(I)
b = nokta.Coordinates(0)
c = nokta.Coordinates(1)

j = j + 1
al = (j) & " = " & Round(b, 3) & " : " & Round(c, 3)
textString = al
k = k - height * 2
insertionPoint(0) = d: insertionPoint(1) = k: insertionPoint(2) = 0

If j < e Then Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)

End If
Next



End Sub

Private Sub CommandButton2_Click()
Dim a, b, c, I, j, k, d, e As Integer
Dim objciz As AcadLine
Dim lineObj As AcadLine
Dim color As AcadAcCmColor
Dim nokta As AcadPoint
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim al As String
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
a = ThisDrawing.ModelSpace.Count
height = TextBox1.Text
j = 1
I = 0
k = 1
Do While I < a - k

If TypeOf ThisDrawing.ModelSpace.Item(I) Is AcadPoint Then
Set nokta = ThisDrawing.ModelSpace.Item(I)

I = I - 1
b = nokta.Coordinates(0)
c = nokta.Coordinates(1)
insertionPoint(0) = b: insertionPoint(1) = c: insertionPoint(2) = 0
j = j + 1
al = (j) & " =" & Round(b, 3) & " :" & Round(c, 3)
textString = al
ListBox1.AddItem (textString)
nokta.Delete
k = k + 1
End If
I = I + 1
Loop

End Sub

Private Sub CommandButton3_Click()



End Sub

Excell Visual Basic

Private Sub CommandButton1_Click()

Dim a, i, j, k As Integer
Dim al As String

k = 14
For j = 14 To 100
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla1
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla1
a = 4
Worksheets("Ayliksaat").Cells(k, 1).Value = Worksheets("Toplam").Cells(j, 1).Value
Worksheets("Ayliksaat").Cells(k, 2).Value = Worksheets("Toplam").Cells(j, 2).Value
Worksheets("Ayliksaat").Cells(k, 3).Value = Worksheets("Toplam").Cells(j, 3).Value

For i = 0 To 27 Step 3

Worksheets("Ayliksaat").Cells(k, a).Value = Worksheets("1-10").Cells(j, 9 + i).Value

Worksheets("Ayliksaat").Cells(k, a + 10).Value = Worksheets("11-20").Cells(j, 9 + i).Value

Worksheets("Ayliksaat").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i).Value


a = a + 1

Next
Worksheets("Ayliksaat").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i + 3).Value
k = k + 1
atla1:
Next


k = 112
For j = 112 To 183

If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla2
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla2
a = 4

Worksheets("Ayliksaat").Cells(k, 1).Value = Worksheets("Toplam").Cells(j, 1).Value
Worksheets("Ayliksaat").Cells(k, 2).Value = Worksheets("Toplam").Cells(j, 2).Value
Worksheets("Ayliksaat").Cells(k, 3).Value = Worksheets("Toplam").Cells(j, 3).Value

For i = 0 To 27 Step 3

Worksheets("Ayliksaat").Cells(k, a).Value = Worksheets("1-10").Cells(j, 9 + i).Value
'Worksheets("Evrak").Cells(8 + j, 6).Value = Worksheets("1-10").Cells(14 + a, 10 + i).Value

Worksheets("Ayliksaat").Cells(k, a + 10).Value = Worksheets("11-20").Cells(j, 9 + i).Value
'Worksheets("Evrak").Cells(8 + j, 10).Value = Worksheets("11-20").Cells(14 + a, 10 + i).Value

Worksheets("Ayliksaat").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i).Value
'Worksheets("Evrak").Cells(8 + j, 14).Value = Worksheets("21-30").Cells(14 + a, 10 + i).Value


a = a + 1

Next
Worksheets("Ayliksaat").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j + k, 9 + i + 3).Value
k = k + 1
atla2:
Next


End Sub

Private Sub CommandButton2_Click()
Dim a, i, j, k As Integer
Dim al As String

k = 14
For j = 14 To 100
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla1
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla1
a = 4
Worksheets("Aylikfazla").Cells(k, 1).Value = Worksheets("Toplam").Cells(j, 1).Value
Worksheets("Aylikfazla").Cells(k, 2).Value = Worksheets("Toplam").Cells(j, 2).Value
Worksheets("Aylikfazla").Cells(k, 3).Value = Worksheets("Toplam").Cells(j, 3).Value


For i = 0 To 27 Step 3

'Worksheets("Ayliksaat").Cells(j, a).Value = Worksheets("1-10").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a).Value = Worksheets("1-10").Cells(j, 10 + i).Value

'Worksheets("Ayliksaat").Cells(j, a + 10).Value = Worksheets("11-20").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a + 10).Value = Worksheets("11-20").Cells(j, 10 + i).Value

'Worksheets("Ayliksaat").Cells(j, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 10 + i).Value


a = a + 1

Next
Worksheets("Aylikfazla").Cells(j, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i + 3).Value
k = k + 1
atla1:
Next
k = 112
For j = 112 To 183
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla2
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla2
a = 4
Worksheets("Aylikfazla").Cells(k, 1).Value = Worksheets("Toplam").Cells(j, 1).Value
Worksheets("Aylikfazla").Cells(k, 2).Value = Worksheets("Toplam").Cells(j, 2).Value
Worksheets("Aylikfazla").Cells(k, 3).Value = Worksheets("Toplam").Cells(j, 3).Value

For i = 0 To 27 Step 3

'Worksheets("Ayliksaat").Cells(j, a).Value = Worksheets("1-10").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a).Value = Worksheets("1-10").Cells(j, 10 + i).Value

'Worksheets("Ayliksaat").Cells(j, a + 10).Value = Worksheets("11-20").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a + 10).Value = Worksheets("11-20").Cells(j, 10 + i).Value

'Worksheets("Ayliksaat").Cells(j, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i).Value
Worksheets("Aylikfazla").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 10 + i).Value


a = a + 1

Next
Worksheets("Aylikfazla").Cells(k, a + 20).Value = Worksheets("21-30").Cells(j, 9 + i + 3).Value
k = k + 1
atla2:
Next



End Sub

Private Sub CommandButton3_Click()
Dim i, j, a, b, k
j = 112
For k = 112 To 173
If Worksheets("Toplam").Cells(k, 6).Value = "Ayrıldı" Then GoTo atla
If Worksheets("Toplam").Cells(k, 5).Value = "Ayrıldı" Then GoTo atla

a = Worksheets("Ayliksaat").Cells(j, 35).Value
b = Worksheets("Aylikfazla").Cells(j, 35).Value
Worksheets("Yerel7").Cells(j - 108, 4).Value = a
Worksheets("Yerel7").Cells(j - 108, 5).Value = b

Worksheets("Yerel7").Cells(j - 108, 1).Value = Worksheets("Ayliksaat").Cells(j, 1).Value
Worksheets("Yerel7").Cells(j - 108, 2).Value = Worksheets("Ayliksaat").Cells(j, 3).Value
Worksheets("Yerel7").Cells(j - 108, 3).Value = Worksheets("Toplam").Cells(k, 7).Value * 9
'Worksheets("Yerel7").Cells(j - 108, 6).Value = Worksheets("Toplam").Cells(k, 5).Value
'Worksheets("Yerel7").Cells(j - 108, 7).Value = j
'Worksheets("Yerel7").Cells(j - 108, 8).Value = k
j = j + 1
atla:

Next


End Sub

Private Sub CommandButton4_Click()
Dim i, j, a, b, k As Integer
Dim t, s
t = 0
k = 0
k = 14
For j = 14 To 100
If Worksheets("Toplam").Cells(j, 6).Value = "Ayrıldı" Then GoTo atla
If Worksheets("Toplam").Cells(j, 5).Value = "Ayrıldı" Then GoTo atla

Worksheets("Misirli30").Cells(k - 10, 1).Value = Worksheets("Ayliksaat").Cells(k, 1).Value
Worksheets("Misirli30").Cells(k - 10, 2).Value = Worksheets("Ayliksaat").Cells(k, 3).Value
Worksheets("Misirli30").Cells(k - 10, 3).Value = Worksheets("Ayliksaat").Cells(k, 35).Value
Worksheets("Misirli30").Cells(k - 10, 4).Value = Worksheets("Aylikfazla").Cells(k, 35).Value
Worksheets("Misirli30").Cells(k - 10, 5).Value = Worksheets("Toplam").Cells(j, 26).Value
Worksheets("Misirli30").Cells(k - 10, 6).Value = Worksheets("Toplam").Cells(j, 27).Value
Worksheets("Misirli30").Cells(k - 10, 7).Value = Worksheets("Toplam").Cells(j, 20).Value
s = Worksheets("Misirli30").Cells(k - 10, 6).Value
If s > 0 Then t = t + s
k = k + 1
atla:
Next
UserForm3.Caption = t


End Sub

Private Sub CommandButton5_Click()
Dim a, i, j As Integer
Dim al, x As String
x = TextBox1.Text
If x <> 83213 Then GoTo son
For j = 14 To 100
a = 4
For i = 0 To 27 Step 3
Worksheets("1-10").Cells(j, 9 + i).Value = 0
Worksheets("11-20").Cells(j, 9 + i).Value = 0
Worksheets("21-30").Cells(j, 9 + i).Value = 0
Worksheets("1-10").Cells(j, 10 + i).Value = 0
Worksheets("11-20").Cells(j, 10 + i).Value = 0
Worksheets("21-30").Cells(j, 10 + i).Value = 0

a = a + 1
Next
Worksheets("21-30").Cells(j, 9 + i + 3).Value = 0
Worksheets("21-30").Cells(j, 10 + i + 3).Value = 0

Next


son:
End Sub

Private Sub CommandButton6_Click()
Dim a, i, j As Integer
Dim al, x As String
x = TextBox1.Text
If x <> 83233 Then GoTo son

For j = 112 To 183
a = 4
For i = 0 To 27 Step 3
Worksheets("1-10").Cells(j, 10 + i).Value = 0
Worksheets("11-20").Cells(j, 10 + i).Value = 0
Worksheets("21-30").Cells(j, 10 + i).Value = 0
Worksheets("1-10").Cells(j, 9 + i).Value = 0
Worksheets("11-20").Cells(j, 9 + i).Value = 0
Worksheets("21-30").Cells(j, 9 + i).Value = 0
a = a + 1
Next
Worksheets("21-30").Cells(j, 9 + i + 3).Value = 0
Worksheets("21-30").Cells(j, 10 + i + 3).Value = 0
Next

son:
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub ComboBox1_Click()
Dim a, i, j As Integer

a = ComboBox2.ListIndex
If a < 0 Then GoTo sona
ComboBox3.Text = ComboBox3.List(a)
j = ComboBox1.ListIndex + 1
TextBox1.Text = "Empty"
TextBox2.Text = " Empty"

If j > 0 And j < 11 Then i = j * 3 - 3
If j > 0 And j < 11 Then TextBox1.Text = Worksheets("1-10").Cells(14 + a, 9 + i).Value
If j > 0 And j < 11 Then TextBox2.Text = Worksheets("1-10").Cells(14 + a, 10 + i).Value

If j > 10 And j < 21 Then i = j * 3 - 33
If j > 10 And j < 21 Then TextBox1.Text = Worksheets("11-20").Cells(14 + a, 9 + i).Value
If j > 10 And j < 21 Then TextBox2.Text = Worksheets("11-20").Cells(14 + a, 10 + i).Value

If j > 20 And j < 31 Then i = j * 3 - 63
If j > 20 And j < 31 Then TextBox1.Text = Worksheets("21-30").Cells(14 + a, 9 + i).Value
If j > 20 And j < 31 Then TextBox2.Text = Worksheets("21-30").Cells(14 + a, 10 + i).Value

If j = 31 Then i = j * 3 - 60
If j = 31 Then TextBox1.Text = Worksheets("21-30").Cells(14 + a, 9 + i).Value
If j = 31 Then TextBox2.Text = Worksheets("21-30").Cells(14 + a, 10 + i).Value



sona:
End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub ComboBox2_Click()
Dim a, i, j As Integer
Dim al, ver, kazan As String
Dim tdh, tot, tg, ma

a = ComboBox2.ListIndex
If a < 0 Then GoTo sona
ComboBox3.Text = ComboBox3.List(a)
j = ComboBox1.ListIndex + 1
TextBox1.Text = "Empty"
TextBox2.Text = " Empty"

If j > 0 And j < 11 Then i = j * 3 - 3
If j > 0 And j < 11 Then TextBox1.Text = Worksheets("1-10").Cells(14 + a, 9 + i).Value
If j > 0 And j < 11 Then TextBox2.Text = Worksheets("1-10").Cells(14 + a, 10 + i).Value

If j > 10 And j < 21 Then i = j * 3 - 33
If j > 10 And j < 21 Then TextBox1.Text = Worksheets("11-20").Cells(14 + a, 9 + i).Value
If j > 10 And j < 21 Then TextBox2.Text = Worksheets("11-20").Cells(14 + a, 10 + i).Value

If j > 20 And j < 31 Then i = j * 3 - 63
If j > 20 And j < 31 Then TextBox1.Text = Worksheets("21-30").Cells(14 + a, 9 + i).Value
If j > 20 And j < 31 Then TextBox2.Text = Worksheets("21-30").Cells(14 + a, 10 + i).Value

If j = 31 Then i = j * 3 - 60
If j = 31 Then TextBox1.Text = Worksheets("21-30").Cells(14 + a, 9 + i).Value
If j = 31 Then TextBox2.Text = Worksheets("21-30").Cells(14 + a, 10 + i).Value

j = 1
tdh = 0
tot = 0
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox1.AddItem (" Day Hour Owertime")
ListBox2.AddItem (" Day Hour Owertime")
ListBox3.AddItem (" Day Hour Owertime")
For i = 0 To 27 Step 3
al = Str(j)
ver = " " & al & " " & Worksheets("1-10").Cells(14 + a, 9 + i).Value & " " & Worksheets("1-10").Cells(14 + a, 10 + i).Value
ListBox1.AddItem (ver)
al = Str(j + 10)
tdh = tdh + Worksheets("1-10").Cells(14 + a, 9 + i).Value
tot = tot + Worksheets("1-10").Cells(14 + a, 10 + i).Value

ver = ""
ver = " " & al & " " & Worksheets("11-20").Cells(14 + a, 9 + i).Value & " " & Worksheets("11-20").Cells(14 + a, 10 + i).Value
ListBox2.AddItem (ver)
ver = ""
al = Str(j + 20)

tdh = tdh + Worksheets("11-20").Cells(14 + a, 9 + i).Value
tot = tot + Worksheets("11-20").Cells(14 + a, 10 + i).Value

ver = " " & al & " " & Worksheets("21-30").Cells(14 + a, 9 + i).Value & " " & Worksheets("21-30").Cells(14 + a, 10 + i).Value
ListBox3.AddItem (ver)

tdh = tdh + Worksheets("21-30").Cells(14 + a, 9 + i).Value
tot = tot + Worksheets("21-30").Cells(14 + a, 10 + i).Value


j = j + 1

Next
al = Str(j + 20)
ver = " " & al & " " & Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value & " " & Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value
ListBox3.AddItem (ver)


tdh = tdh + Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value
tot = tot + Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value
m = Worksheets("Toplam").Cells(14 + a, 7).Value * 9 * 30

If tdh / 9 < 21 And tdh > 29 Then tg = (m / 30) * (tdh / 9 / 15) Else tg = m / 15

If tdh < 30 Then tg = 0

If a < 86 Then Worksheets("Toplam").Cells(14 + a, 29).Value = tg
Label6.Caption = "Total DayTime " & " = " & tdh & " /9 = " & tdh / 9
Label7.Caption = "Total OwerTime" & " = " & tot

sona:

End Sub

Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

Private Sub ComboBox3_Change()
Dim a As Integer

a = ComboBox3.ListIndex
If a < 0 Then GoTo sona

ComboBox2.Text = ComboBox2.List(a)
UserForm2.Caption = "Gurubu [ " + Worksheets("Toplam").Cells(14 + a, 4).Value + " ] : " + " Çalıştığı bölüm [ " + Worksheets("Toplam").Cells(14 + a, 5).Value + " ] : " + " Vardiyası [ " + Worksheets("Toplam").Cells(14 + a, 6).Value + " ] "


sona:
End Sub

Private Sub CommandButton1_Click()
End Sub







Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub ListBox1_Click()
ComboBox1.ListIndex = ListBox1.ListIndex - 1
End Sub

Private Sub ListBox2_Click()
ComboBox1.ListIndex = ListBox2.ListIndex + 9
End Sub

Private Sub ListBox3_Click()
ComboBox1.ListIndex = ListBox3.ListIndex + 19
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim a, i, j As Integer

a = ComboBox2.ListIndex
If a < 0 Then GoTo sona
ComboBox3.Text = ComboBox3.List(a)
j = ComboBox1.ListIndex + 1

If j > 0 And j < 11 Then i = j * 3 - 3
If j > 0 And j < 11 Then Worksheets("1-10").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 0 And j < 11 Then Worksheets("1-10").Cells(14 + a, 10 + i).Value = TextBox2.Text


If j > 10 And j < 21 Then i = j * 3 - 33
If j > 10 And j < 21 Then Worksheets("11-20").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 10 And j < 21 Then Worksheets("11-20").Cells(14 + a, 10 + i).Value = TextBox2.Text

If j > 20 And j < 31 Then i = j * 3 - 63
If j > 20 And j < 31 Then Worksheets("21-30").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 20 And j < 31 Then Worksheets("21-30").Cells(14 + a, 10 + i).Value = TextBox2.Text


If j = 31 Then i = j * 3 - 60
If j = 31 Then Worksheets("21-30").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j = 31 Then Worksheets("21-30").Cells(14 + a, 10 + i).Value = TextBox2.Text


sona:


End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim a, i, j As Integer

a = ComboBox2.ListIndex
If a < 0 Then GoTo sona
ComboBox3.Text = ComboBox3.List(a)
j = ComboBox1.ListIndex + 1

If j > 0 And j < 11 Then i = j * 3 - 3
If j > 0 And j < 11 Then Worksheets("1-10").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 0 And j < 11 Then Worksheets("1-10").Cells(14 + a, 10 + i).Value = TextBox2.Text

If j > 10 And j < 21 Then i = j * 3 - 33
If j > 10 And j < 21 Then Worksheets("11-20").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 10 And j < 21 Then Worksheets("11-20").Cells(14 + a, 10 + i).Value = TextBox2.Text

If j > 20 And j < 31 Then i = j * 3 - 63
If j > 20 And j < 31 Then Worksheets("21-30").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j > 20 And j < 31 Then Worksheets("21-30").Cells(14 + a, 10 + i).Value = TextBox2.Text

If j = 31 Then i = j * 3 - 60
If j = 31 Then Worksheets("21-30").Cells(14 + a, 9 + i).Value = TextBox1.Text
If j = 31 Then Worksheets("21-30").Cells(14 + a, 10 + i).Value = TextBox2.Text


sona:


End Sub

Private Sub UserForm_Activate()
'ComboBox1.Text = "İşci Numaraları"
'ComboBox1.Text = "İşci İsimler"
Dim i, h, s As Integer

For i = 14 To 200
ComboBox2.AddItem (Worksheets("Toplam").Cells(i, 1).Value)
ComboBox3.AddItem (Worksheets("Toplam").Cells(i, 3).Value)
Next
For i = 1 To 31
ComboBox1.AddItem (i)
Next
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
ComboBox3.ListIndex = 0
ComboBox1.TabStop = False
ComboBox3.TabStop = False


End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_Click()
Dim a, i, j As Integer
Dim al As String
Dim tdw, tot, ta, tp, tt

a = ComboBox1.ListIndex
ComboBox2.Text = ComboBox2.List(a)
j = 0
Worksheets("Evrak").Cells(3, 6).Value = ComboBox1.Text
Worksheets("Evrak").Cells(4, 6).Value = ComboBox2.Text
'Worksheets("Evrak").Cells(21, 7).Value = Worksheets("1-10").Cells(14 + a, 4).Value
'Worksheets("Evrak").Cells(22, 7).Value = Worksheets("1-10").Cells(14 + a, 5).Value
Worksheets("Evrak").Cells(5, 6).Value = Worksheets("Toplam").Cells(14 + a, 2).Value
Worksheets("Evrak").Cells(21, 6).Value = Worksheets("Toplam").Cells(14 + a, 7).Value
Worksheets("Evrak").Cells(22, 6).Value = Worksheets("Toplam").Cells(14 + a, 8).Value

tdw = 0
tot = 0
ta = 0
tp = 0
ListBox1.Clear

For i = 0 To 27 Step 3

Worksheets("Evrak").Cells(8 + j, 5).Value = Worksheets("1-10").Cells(14 + a, 9 + i).Value
Worksheets("Evrak").Cells(8 + j, 6).Value = Worksheets("1-10").Cells(14 + a, 10 + i).Value

Worksheets("Evrak").Cells(8 + j, 9).Value = Worksheets("11-20").Cells(14 + a, 9 + i).Value
Worksheets("Evrak").Cells(8 + j, 10).Value = Worksheets("11-20").Cells(14 + a, 10 + i).Value

Worksheets("Evrak").Cells(8 + j, 13).Value = Worksheets("21-30").Cells(14 + a, 9 + i).Value
Worksheets("Evrak").Cells(8 + j, 14).Value = Worksheets("21-30").Cells(14 + a, 10 + i).Value

tdw = tdw + Worksheets("1-10").Cells(14 + a, 9 + i).Value + Worksheets("11-20").Cells(14 + a, 9 + i).Value + Worksheets("21-30").Cells(14 + a, 9 + i).Value
tot = tot + Worksheets("1-10").Cells(14 + a, 10 + i).Value + Worksheets("11-20").Cells(14 + a, 10 + i).Value + Worksheets("21-30").Cells(14 + a, 10 + i).Value
j = j + 1
Next
'Worksheets("Evrak").Cells(8 + j, 14).Value = Worksheets("21-30").Cells(14 + a, 7 + 30).Value
Worksheets("Evrak").Cells(8 + j, 13).Value = Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value
Worksheets("Evrak").Cells(8 + j, 14).Value = Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value
tdw = tdw + Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value
tot = tot + Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value

For i = 0 To 4
Worksheets("Evrak").Cells(20 + i, 10).Value = Worksheets("Toplam").Cells(14 + a, 21 + i).Value
ta = ta + Worksheets("Toplam").Cells(14 + a, 21 + i).Value
Next
Worksheets("Evrak").Cells(27, 6).Value = Worksheets("Toplam").Cells(14 + a, 28).Value
Worksheets("Evrak").Cells(28, 6).Value = Worksheets("Toplam").Cells(14 + a, 29).Value
tt = Worksheets("Toplam").Cells(14 + a, 29).Value
TextBox1.Text = "Gurubu [ " + Worksheets("Toplam").Cells(14 + a, 4).Value + " ] : " + " Çalıştığı bölüm [ " + Worksheets("Toplam").Cells(14 + a, 5).Value + " ] : " + " Vardiyası [ " + Worksheets("Toplam").Cells(14 + a, 6).Value + " ] "

tp = Worksheets("Toplam").Cells(14 + a, 28).Value

al = "Total DayWork " & tdw / 9
ListBox1.AddItem (al)
al = "Total Owertime " & tot
ListBox1.AddItem (al)
al = "DayWork Money " & tdw * 500 / 270
ListBox1.AddItem (al)
al = "OwerTime Money " & tot * 2
ListBox1.AddItem (al)
al = "Reward Money " & tp
ListBox1.AddItem (al)

al = "Holiday Money " & tt
ListBox1.AddItem (al)


al = "Total Money " & tdw * 500 / 270 + tot * 2 + tp + tt
ListBox1.AddItem (al)

al = "Advance Money " & ta / 200
ListBox1.AddItem (al)

al = "Net Money " & tdw * 500 / 270 + tot * 2 + tp - ta / 200 + tt
ListBox1.AddItem (al)


End Sub



Private Sub ComboBox2_Click()
Dim a As Integer

a = ComboBox2.ListIndex
ComboBox1.Text = ComboBox1.List(a)

End Sub

Private Sub CommandButton1_Click()
Dim a, i, j, t As Integer
a = -1
For t = 0 To 100 - 14

If Worksheets("Evrak").Cells(3, 6).Value = Worksheets("Toplam").Cells(14 + t, 1).Value And Worksheets("Evrak").Cells(4, 6).Value = Worksheets("Toplam").Cells(14 + t, 3).Value Then a = t

Next t

If a < 0 And a > 90 Then GoTo son

For i = 0 To 27 Step 3

Worksheets("1-10").Cells(14 + a, 9 + i).Value = Worksheets("Evrak").Cells(8 + j, 5).Value
Worksheets("1-10").Cells(14 + a, 10 + i).Value = Worksheets("Evrak").Cells(8 + j, 6).Value

Worksheets("11-20").Cells(14 + a, 9 + i).Value = Worksheets("Evrak").Cells(8 + j, 9).Value
Worksheets("11-20").Cells(14 + a, 10 + i).Value = Worksheets("Evrak").Cells(8 + j, 10).Value

Worksheets("21-30").Cells(14 + a, 9 + i).Value = Worksheets("Evrak").Cells(8 + j, 13).Value
Worksheets("21-30").Cells(14 + a, 10 + i).Value = Worksheets("Evrak").Cells(8 + j, 14).Value
j = j + 1
Next
Worksheets("21-30").Cells(14 + a, 9 + i + 3).Value = Worksheets("Evrak").Cells(8 + j, 13).Value
Worksheets("21-30").Cells(14 + a, 10 + i + 3).Value = Worksheets("Evrak").Cells(8 + j, 14).Value
ComboBox1.ListIndex = a
ComboBox2.ListIndex = a

son:
End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub ToggleButton1_Click()
Worksheets("Evrak").PrintOut
End Sub

Private Sub UserForm_Activate()
ComboBox1.Text = "İşci Numaraları"
ComboBox2.Text = "İşci İsimler"
Dim i, h, s As Integer
For i = 14 To 200

ComboBox1.AddItem (Worksheets("Toplam").Cells(i, 1).Value)
ComboBox2.AddItem (Worksheets("Toplam").Cells(i, 3).Value)
Next
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Deactivate()

End Sub

Mindcell yazılım teknolojisi :
****************************** 

Yedi boyutlu uzayda bilgi tutar 
7 x 7 = 49 fakli düzlemde bilgi işlenir.
7! = 5040 farli bilgiler doyalanır. 

Yedi boyutlu uzayda hesap yapar 
İki ve yedi boyutlu uzay aynı anda kullanılabılır. 

Çok farklı uzaya dönüştürülebilinir 
Formüller yeni uzaya göre yenilenir. 

Görsel şifreleme yapar
Çözülmesi imkansızdır. 

Network ortamında çalışır ve 
Ayn anda bütün kullanıcılar
çok boyutlu uzayda hesap yapar. 


Bireysel ve kurumsal yararları.
------------------------------ 

Kurumun bilgi değelemdirme hızı % 25 artar.
Kuruma özel model oluşturmak çok kolaydır.

Kurumun bilgiden faydalama kapasıtesi % 50 artar.
Bilgi uzayı çok hızlı yeniden modellenebilinir. 

Kurumun yeni bilgi üretme güçü % 100 artar.
Bilgi ve işlemler 7! = 5040 farklı dosyalanabilinir. 


Bireyin algılgılama kapasıtesı % 100 artar.
Çok boyutlu uzayda düşünmeyi öğrenir.

Bireyin düşünce güçü % 50 artar.
Beyinle aynı dil uzayını kullanır.

Bireyin bilgi işlem özgürlüğü % 25 artar.
Kendine özel farklı bakış ortaya koyar.