Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [G:G]) Is Nothing Then GoTo 10
On Error GoTo son
ActiveSheet.Unprotect
Cells.Locked = False
If Target.Value = "MASRAF" Then
Range("I:I").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ÇIKAN" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "SATIŞ" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ALC DEKONT" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "GİREN" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ALIŞ" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "BRÇ DEKONT" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "KASA DEVRİ" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
son:
End If
10:
If Intersect(Target, [F:F]) Is Nothing Then GoTo 20
If Target <> "" And Target = Cells(Target.Row, "M") Then
Cells(Target.Row, "G") = "ÇIKAN"
End If
20:
If Intersect(Target, [M:M]) Is Nothing Then GoTo 30
If Target <> "" And Target = Cells(Target.Row, "F") Then
Cells(Target.Row, "G") = "ÇIKAN"
End If
30:
For i = 1 To Sheets("KASA").Range("F5000").End(3).Row
If (Cells(i, "F") = "") Then GoTo atla
s = s + 1
For t = 1 To 13
If (Cells(t, "A") = "") Then GoTo atla
Sheets("RAPOR_2").Cells(s, t).Value = Sheets("KASA").Cells(i, t).Value
Next t
atla:
Next i
End Sub
Yukardaki makroyu, excel'i kasmadan çalışacak hale getirebilirmiyiz?
Makro İle Çoklu Satır Taşıma
Bu Konudaki Yorumlar |
Makro İle Çoklu Satır Taşıma - Yazar: boraday - 20/08/2013, 00:14
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: benremix - 21/08/2013, 06:33
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: DUAYEN - 22/08/2013, 11:31
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: DUAYEN - 22/08/2013, 11:57
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: turankr - 05/01/2017, 10:03
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: turankr - 05/01/2017, 12:07
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: atoz112 - 05/01/2017, 15:29
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: turankr - 05/01/2017, 16:56
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: atoz112 - 05/01/2017, 17:14
Cvp: Makro İle Çoklu Satır Taşıma - Yazar: turankr - 05/01/2017, 17:18
|
Konuyu Okuyanlar: 1 Ziyaretçi