Page 15 of 55 FirstFirst ... 5131415161725 ... LastLast
Results 141 to 150 of 541

Thread: Appendix Thread. 3 *

  1. 04-24-2019, 12:34 PM #141
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10
    Full data input sheet2 cont........

    Code:
    ....................................................		Casual	20:57:14	20:59:57	20
A NEWS	15.11.2017	20:58:33	Casual	20:57:14	20:59:57	20
A NEWS	15.11.2017	20:58:42	Casual	20:57:14	20:59:57	20
A NEWS	15.11.2017	20:59:01	Casual	20:57:14	20:59:57	20
A NEWS	15.11.2017	22:26:58	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:27:18	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:27:36	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:28:06	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:28:31	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:28:46	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:29:03	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:30:03	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:30:18	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:30:38	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:30:53	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:31:02	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:31:18	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:31:53	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:32:09	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:32:39	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:32:54	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:33:06	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:33:31	Mid Break-1	22:26:54	22:33:55	22
A NEWS	15.11.2017	22:47:06	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:47:51	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:48:51	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:49:21	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:49:33	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:49:48	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:50:08	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:50:28	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:50:44	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:51:14	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:51:51	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:52:26	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:52:42	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:53:03	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:53:18	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:53:42	Mid Break-2	22:47:02	22:54:02	22
A NEWS	15.11.2017	22:57:15	Casual	22:57:11	23:00:05	22
A NEWS	15.11.2017	22:57:30	Casual	22:57:11	23:00:05	22
A NEWS	15.11.2017	22:58:00	Casual	22:57:11	23:00:05	22
A NEWS	15.11.2017	22:58:14	Casual	22:57:11	23:00:05	22
A NEWS	15.11.2017	22:58:24	Casual	22:57:11	23:00:05	22
A NEWS	15.11.2017	22:58:41	Casual	22:57:11	23:00:05	22
A NEWS	15.11.2017	22:58:48	Casual	22:57:11	23:00:05	22
A NEWS	15.11.2017	22:59:08	Casual	22:57:11	23:00:05	22
A NEWS	18.11.2017	23:01:21	Mid Break-1	23:01:17	23:03:21	23
A NEWS	18.11.2017	23:01:37	Mid Break-1	23:01:17	23:03:21	23
A NEWS	18.11.2017	23:01:57	Mid Break-1	23:01:17	23:03:21	23
A NEWS	18.11.2017	23:02:27	Mid Break-1	23:01:17	23:03:21	23
A NEWS	18.11.2017	23:02:57	Mid Break-1	23:01:17	23:03:21	23
A NEWS	18.11.2017	23:16:35	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:16:56	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:17:20	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:17:37	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:17:52	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:18:02	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:18:17	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:18:26	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:18:38	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:19:13	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:19:43	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:19:53	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:20:00	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:20:25	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:21:00	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:21:17	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:21:47	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:21:54	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:22:09	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:22:19	Mid Break-2	23:16:35	23:22:43	23
A NEWS	18.11.2017	23:33:57	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:34:28	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:34:43	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:34:53	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:35:01	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:35:11	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:35:46	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:36:01	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:36:11	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:36:23	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:36:38	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:36:53	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:37:03	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:37:15	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:37:52	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:37:59	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:39:00	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:39:24	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:39:39	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:40:10	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:41:10	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:41:20	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:41:35	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:42:10	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:42:20	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:42:51	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:43:10	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:43:40	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:44:39	Mid Break-3	23:33:53	23:44:55	23
A NEWS	18.11.2017	23:57:21	Casual	23:57:21	23:59:58	23
A NEWS	18.11.2017	23:57:31	Casual	23:57:21	23:59:58	23
A NEWS	18.11.2017	23:57:39	Casual	23:57:21	23:59:58	23
A NEWS	18.11.2017	23:57:57	Casual	23:57:21	23:59:58	23
A NEWS	18.11.2017	23:58:13	Casual	23:57:21	23:59:58	23
A NEWS	18.11.2017	23:58:23	Casual	23:57:21	23:59:58	23
A NEWS	18.11.2017	23:58:39	Casual	23:57:21	23:59:58	23
A NEWS	18.11.2017	23:58:46	Casual	23:57:21	23:59:58	23
A NEWS	18.11.2017	23:59:06	Casual	23:57:21	23:59:58	23
B NEWS	16.11.2017	20:01:24	Mid Break-2	20:01:24	20:01:50	20
B NEWS	16.11.2017	20:15:08	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:15:33	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:15:43	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:15:58	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:16:33	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:16:48	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:17:04	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:17:19	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:17:34	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:17:44	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:18:02	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:18:27	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:18:42	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:19:12	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:19:32	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:19:47	Mid Break-1	20:15:08	20:20:20	20
B NEWS	16.11.2017	20:31:41	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:32:12	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:32:37	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:32:52	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:33:02	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:33:22	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:33:32	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:33:57	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:34:12	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:34:49	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:35:34	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:36:04	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:36:19	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:36:39	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:36:54	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:37:13	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:37:44	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:38:09	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:38:24	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:38:49	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:38:59	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:39:39	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:40:04	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:40:49	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:41:04	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:41:34	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:41:49	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:42:04	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:42:14	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:42:29	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:42:49	Mid Break-2	20:31:41	20:43:24	20
B NEWS	16.11.2017	20:53:38	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:54:03	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:54:14	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:54:29	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:54:43	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:55:03	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:55:13	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:55:28	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:55:38	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:55:48	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:56:18	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:56:33	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:56:58	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:57:13	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:57:28	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:57:43	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:57:53	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:58:13	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:58:54	Casual	20:53:38	21:00:02	20
B NEWS	16.11.2017	20:59:29	Casual	20:53:38	21:00:02	20
B NEWS	18.11.2017	21:07:03	Mid Break-2	21:07:03	21:07:29	21
B NEWS	18.11.2017	21:23:41	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:24:26	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:24:36	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:24:57	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:25:07	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:25:17	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:25:47	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:26:12	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:26:27	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:26:52	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:27:02	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:27:32	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:27:47	Mid Break-3	21:23:41	21:28:06	21
B NEWS	18.11.2017	21:36:02	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:36:37	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:36:56	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:37:26	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:37:36	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:37:51	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:38:28	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:38:43	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:38:53	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:39:18	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:39:38	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:40:08	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:40:33	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:41:25	Mid Break-5	21:36:02	21:42:00	21
B NEWS	18.11.2017	21:45:02	Mid Break-6	21:44:41	21:45:33	21
B NEWS	18.11.2017	21:46:22	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:46:48	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:47:08	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:47:23	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:47:58	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:48:23	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:48:43	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:48:58	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:49:10	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:49:20	Mid Break-7	21:46:22	21:49:35	21
B NEWS	18.11.2017	21:52:48	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:53:08	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:53:23	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:53:58	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:54:53	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:55:13	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:55:28	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:55:40	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:56:40	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:56:56	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:57:10	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:57:53	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:59:03	Casual	21:52:48	21:59:58	21
B NEWS	18.11.2017	21:59:25	Casual	21:52:48	21:59:58	21
C NEWS	17.11.2017	22:01:33	Casual	22:01:33	22:03:11	22
C NEWS	17.11.2017	22:02:01	Casual	22:01:33	22:03:11	22
C NEWS	17.11.2017	22:02:16	Casual	22:01:33	22:03:11	22
C NEWS	17.11.2017	22:02:51	Casual	22:01:33	22:03:11	22
C NEWS	17.11.2017	22:18:46	Mid Break-1	22:18:46	22:20:31	22
C NEWS	17.11.2017	22:18:56	Mid Break-1	22:18:46	22:20:31	22
C NEWS	17.11.2017	22:19:32	Mid Break-1	22:18:46	22:20:31	22
C NEWS	17.11.2017	22:41:24	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:41:34	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:42:01	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:42:31	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:43:06	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:43:16	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:43:26	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:44:07	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:44:49	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:45:26	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:46:24	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:46:34	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:46:44	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:47:25	Mid Break-2	22:41:24	22:47:44	22
C NEWS	17.11.2017	22:58:10	Casual	22:57:26	22:59:55	22
    Reply With Quote Reply With Quote
  2. 04-25-2019, 01:49 PM #142
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10
    Version 3 code for Haider, for this post:
    http://www.excelfox.com/forum/showth...ll=1#post11148

    Code:
    Option Explicit '
Sub HaiderAdSlots_v3() ' http://www.excelfox.com/forum/showthread.php/2330-Fill-Column-Based-on-Actual-Time?p=11124&viewfull=1#post11124
Rem 1 Worksheets info
Dim Ws1 As Worksheet, Ws2 As Worksheet
 Set Ws1 = ThisWorkbook.Worksheets("Sheet1v3"): Set Ws2 = ThisWorkbook.Worksheets("Sheet2v3")
Dim Lr1 As Long, Lr2 As Long
 Let Lr1 = Ws1.Range("A" & Ws1.Range("A" & Ws1.Rows.Count & "").End(xlUp).Row & "").Row: Let Lr2 = Ws1.Range("A" & Ws2.Range("A" & Ws2.Rows.Count & "").End(xlUp).Row & "").Row
'1b) data arrays, original data
Dim arrInSht2() As Variant, arrOutSht1() As Variant
 Let arrInSht2() = Ws2.Range("A1:G" & Lr2 + 1 & "").Value2 ' !!! I need +1 as a "bodge workaroung to prevent an index out of range error  --- here
 Let arrOutSht1() = Ws1.Range("A1:C" & Lr1 & "").Value2
'1b)(ii) extra "column" for outout
ReDim Preserve arrOutSht1(1 To Lr1, 1 To 4) ' we may add a last dimension, but must keep the others the same as they were
Rem 2 Group ident arrays, for convenience
'2a) an array of the idents for all data rows in output sheet1
Dim arrOutId() As String
 ReDim arrOutId(1 To Lr1)
Dim cnt As Long
    For cnt = 2 To Lr1 '       Channel            Date in Long number form               Hour as number
     Let arrOutId(cnt) = arrOutSht1(cnt, 2) & " | " & arrOutSht1(cnt, 1) & " | " & CLng(Hour(arrOutSht1(cnt, 3))) ' add to array of all idents in rows 2 to last row
    Next cnt
'2b) idents for input historical data, includung an additonal arrray of just the unique ident values
Dim arrInId() As String
 ReDim arrInId(1 To Lr2 + 1)
    For cnt = 2 To Lr2 '       Channel           Date in Long number form          Hour as number
     Let arrInId(cnt) = arrInSht2(cnt, 1) & " | " & arrInSht2(cnt, 2) & " | " & CLng(arrInSht2(cnt, 7))           ' add to array of all idents in rows 2 to last row
    Dim strEnucsIds As String:  ' a string of unique idents to be used to create an additonal arrray of just the unique ident values
        If InStr(1, strEnucsIds, arrInId(cnt), vbBinaryCompare) = 0 Then Let strEnucsIds = strEnucsIds & arrInId(cnt) & "####"
    Next cnt
 Let strEnucsIds = Left(strEnucsIds, Len(strEnucsIds) - 4) ' takes off last "####"
Dim arrEnucsIds() As String: Let arrEnucsIds() = Split(strEnucsIds, "####", -1, vbBinaryCompare) ' additonal arrray of just the unique ident values
Dim CntIds As Long: Let CntIds = UBound(arrEnucsIds()) + 1 ' +1 because the index numbers of array generated by Split function goes like  0 1 2 3 4 ... etc.  So the total number of elements is 1 more than the ubound: .... (Ubound gives the index number of the last element, not necerssarily the numberr of elements)
 'Debug.Print strEnucsIds
'2c) We know the number of unique idents , so can assign an array, a groupings array, to hold each group of times
Dim arrGrpTimes() As Variant ' I must use variant, as that is the only thing that can hild an array - i will be putting arrasy of the AdStart times in the second dimension ("second column")
 ReDim arrGrpTimes(1 To CntIds, 1 To 2) ' The first column has the unique ID, and the second column will be itself an array of the historical AdStart times for that group
Rem 3 Looping to build groupings array
Dim HisCnt As Long  '  MAIN LOOP Count for rows of historical data ================================================
 Let HisCnt = 1    ' this is so +1 gives the start at row 2, so as not to consider the header                ....**
    Do While HisCnt < Lr2
    Dim GrpCnt As Long ' this will be used for the first dimension("row") of our
    Dim strTimes As String: Let strTimes = " " ' reset for next group of AdStart times
    Let GrpCnt = GrpCnt + 1 ' reset to index/first dimension("row") next group of AdStart times
        Do ' This INNER LOOP will be repeated for each group -------------------------INNER LOOP
         Let HisCnt = HisCnt + 1 ' this effectively "goes down" each row in data Sheet2  - starting at row 2 ....**
         Let strTimes = strTimes & arrInSht2(HisCnt, 3) & " "
         
        Loop While arrInId(HisCnt + 1) = arrInId(HisCnt)    ' !!!        ---here    --INNER LOOP
     Let strTimes = Trim(strTimes) ' takes off leading and trailing spaces
     'Debug.Print strTimes
    ' at the end of each inner loop, we have the data needed to add the AdStart data for this group
     Let arrGrpTimes(GrpCnt, 1) = arrEnucsIds(GrpCnt - 1) ' -1 is because arrEnucsIds() starts at index number 0 , like index numbers go 0 1 2 3 4 ... etc.
    Dim arrTemp() As String ' temporary array to build each array of AdStart times
     Let arrTemp() = Split(strTimes, " ", -1, vbBinaryCompare)
     Let arrGrpTimes(GrpCnt, 2) = arrTemp()
    Loop '             MAIN LOOP Count for rows of historical data ================================================

Rem 4 Going through ("down") the output, Sheet1, data ,  and adding a New Time at each "row"
    For cnt = 2 To Lr1 ' MAIN LOOP for Count for rows in Sheet1 ===================================================
    '4b) determine to which group the "row" belongs
    Dim MtchRes As Variant ' The next line will either return a whole number of the "position along" that it fids a match, or it will return a VBA error type. So a variant for the Variable must be used
     Let MtchRes = Application.Match(arrOutId(cnt), arrEnucsIds(), 0) ' return the position along of a match   ( looking for arrOutId(cnt) ,   in the array of unique Ids arrEnucsIds()   , 0 indicates excact match )   ....._- note the array of unique Ids is determined from the Ids in input historical data
        If Not IsError(MtchRes) Then '4b)(i) - time to get a time, form the array { "20:19:12" , "20:19:32" , "20:49:12" , ….etc } of times for this Id group
        Dim arrTempTimes() As String ' for the array , { "20:19:12" ,........ } , of times
         Let arrTempTimes() = arrGrpTimes(MtchRes, 2) ' I can assign a dynamic array to any other array, as long as the types, ( String) in this case are the same. The wanted array is in the second column of the array, arrGrpTimes()
        Rem 5 "Getting the random times bit"...
        Dim RndIndx As Long: Randomize: Let RndIndx = Int(Rnd() * (UBound(arrTempTimes()) + 1)) ' like  IntegerOf(Rnd()*(N+1))
         Let arrOutSht1(cnt, 4) = arrTempTimes(RndIndx)
        Else '4b(ii). This is the case of no unique Id as determined from the Ids in input historical data, arrEnucsIds()   ....._- so this may occur if ..." if in any case there is no spot aired in Sheet2 on a specific channel, date and timeslot then New Time will be same as start time...."
         Let arrOutSht1(cnt, 4) = arrOutSht1(cnt, 3) '  ...".....if in any case there is no spot aired in Sheet2 on a specific channel, date and timeslot then New Time will be same as start time....."
        End If
    
    Next cnt ' MAIN LOOP for Count for rows in Sheet1 =============================================================

Rem 6 Output test
 Let ThisWorkbook.Worksheets("OutputTestv3").Range("A1").Resize(UBound(arrOutSht1(), 1), 4).Value = arrOutSht1()
 
End Sub

    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg.9h740K6COOA9iHOYYpaA bC
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgxuL6YCUckeUIh9hoh4AaABAg
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwGTEyefOX7msIh1wZ4AaABAg.9h4sd6Vs4qE9h7G-bVm8_-
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=Ugw3nF0C04AGt73H1BB4AaABAg.9h6VhNCM-DZ9h7EqbG23kg
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwGTEyefOX7msIh1wZ4AaABAg.9h4sd6Vs4qE9h7KvJXmK 8o
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=Ugw3nF0C04AGt73H1BB4AaABAg.9h6VhNCM-DZ9h7E1gwg4Aq
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgywFtBEpkHDuK55r214AaABAg
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg.9h5lFRmix1R9h79hNGvJ bu
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg.9h5lFRmix1R9h79YAfa2 4T
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg.9h5lFRmix1R9h79M1SYH 1E
    https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg.9h5lFRmix1R9h78SxhXT nR
    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
    Reply With Quote Reply With Quote
  3. 04-25-2019, 01:51 PM #143
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10
    A typical test run of the last routine gives this, ( using the test data from the last few posts , #158 - #163 )

    _____ Workbook: Data Sheet v3.xls ( Using Excel 2007 32 bit )
    Row\Col
    A
    B
    C
    D
    E
    F
    1
    		 Date Channels start time New Time
    2
    11.15.2017
    A NEWS
    20:07:00
    20:21:20
    3
    11.15.2017
    A NEWS
    20:14:00
    20:20:01
    4
    11.15.2017
    A NEWS
    20:21:00
    20:44:24
    		 Duplicate
    5
    11.15.2017
    A NEWS
    20:28:00
    20:58:33
    6
    11.15.2017
    A NEWS
    20:35:00
    20:42:50
    7
    11.15.2017
    A NEWS
    20:42:00
    20:44:24
    		 Duplicate
    8
    11.15.2017
    A NEWS
    20:49:00
    20:58:07
    9
    11.15.2017
    A NEWS
    20:56:00
    20:21:10
    10
    11.15.2017
    A NEWS
    22:49:00
    22:30:03
    11
    11.15.2017
    A NEWS
    22:56:00
    22:47:51
    12
    11.18.2017
    A NEWS
    23:15:00
    23:57:31
    13
    11.18.2017
    A NEWS
    23:30:00
    23:57:57
    14
    11.18.2017
    A NEWS
    23:45:00
    23:16:35
    15
    11.16.2017
    B NEWS
    20:29:00
    20:32:12
    16
    11.16.2017
    B NEWS
    20:59:00
    20:18:27
    17
    11.18.2017
    B NEWS
    21:10:00
    21:52:48
    18
    11.18.2017
    B NEWS
    21:20:00
    21:24:26
    19
    11.18.2017
    B NEWS
    21:30:00
    21:38:43
    20
    11.18.2017
    B NEWS
    21:40:00
    21:53:58
    21
    11.18.2017
    B NEWS
    21:50:00
    21:26:12
    22
    11.17.2017
    C NEWS
    22:13:00
    22:02:01
    23
    11.17.2017
    C NEWS
    22:26:00
    22:46:34
    24
    11.17.2017
    C NEWS
    22:39:00
    22:42:31
    25
    11.17.2017
    C NEWS
    22:52:00
    22:43:26
    26
    11.17.2017
    D NEWS
    23:13:00
    23:13:00
    27
    28
    Worksheet: OutputTestv3

    File: "Data Sheet v3.xls" : https://app.box.com/s/pym52m1gslq5cynqgob8izltu6ztesim
    Reply With Quote Reply With Quote
  4. 06-07-2019, 03:13 PM #144
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10
    Notes in support of these excelfox Threads and posts:
    http://www.excelfox.com/forum/showth...ista-and-Excel
    http://www.excelfox.com/forum/showth...r-CMS-Software
    https://www.ebay.de/itm/323782698418?ul_noapp=true , _ https://imgur.com/Xq2hih2

    First Cloud attempts.


    Tests Friday, 7th June 2019.

    OK I make Today two tries on one computer : Computer Acer Aspire 4810TZG Vista Operating System
    _1 Try one: My computer is connected to the internet using the same router as that to which the Sannce 1080N Receiver is successfully connected . (German Telekom Speedport W504V Router LAN RJ45 Internet connection)
    Delete a desktop "Deinstaller CMS" icon



    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=UgxesLhWNr_zNP0GUdh4AaABAg.9hI1CQJMLLo9hWn2pGBe SS
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=UgzkRujoMw9PblmXDQ14AaABAg.9hJRnEjxQrd9hJoCjomN I2
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=UgzPZbG7OvUkh35nXDd4AaABAg.9hJOZEEZa6p9hJqLC7El-w
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=UgwUcEpm8u6ZW3uOHXx4AaABAg.9hIlxxGY7t49hJsB2PWx C4
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=UgyvDj6NWT1Gxyy2JyR4AaABAg.9hIKlNPeqDn9hJskm92n p6
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=Ugwy7qx_kG9iUmMVO_F4AaABAg.9hI2IGUdmTW9hJuyaQaw qx
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=UgxesLhWNr_zNP0GUdh4AaABAg.9hI1CQJMLLo9hJwTB9Jl ob
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=UgyyQWYVP1OnCqavb-x4AaABAg
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=UgwJKKmExZ1FdZVDJf54AaABAg
    https://www.youtube.com/watch?v=pkhazgI3LAo&lc=Ugz_p0kVGrLntPtYzCt4AaABAg
    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA


    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
    https://www.youtube.com/watch?v=tzbKqTRuRzU&lc=UgyYW2WZ2DvSrzUKnJ14AaABAg
    https://www.youtube.com/watch?v=UywjKEMjSp0&lc=UgxIySxHPqM1RxtVqoR4AaABAg.9edGvmwOLq99eekDyfS0 CD
    https://www.youtube.com/watch?v=UywjKEMjSp0&lc=UgxIySxHPqM1RxtVqoR4AaABAg.9edGvmwOLq99eevG7txd 2c
    https://www.youtube.com/watch?v=SIDLFRkUEIo&lc=UgzTF5vvB67Zbfs9qvx4AaABAg
    https://www.youtube.com/watch?v=9P6r7DLS77Q&lc=UgzytUUVRyw9U55-6M54AaABAg
    https://www.youtube.com/watch?v=9P6r7DLS77Q&lc=UgzCoa6tOVIBxRDDDbN4AaABAg
    https://www.youtube.com/watch?v=9P6r7DLS77Q&lc=UgyriWOelbVnw4FHWT54AaABAg.9dPo-OdLmZ09dc21kigjmr
    https://www.youtube.com/watch?v=363wd2EtQZ0&lc=UgzDQfo5rJqyVwvv2r54AaABAg
    https://www.youtube.com/watch?v=363wd2EtQZ0&lc=UgzHTSka7YppBdmUooV4AaABAg.9cXui6zzkz09cZttH_-2Gf
    https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
    Reply With Quote Reply With Quote
  5. 06-08-2019, 11:04 AM #145
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10
    Notes in support of these main Threads and posts:
    http://www.excelfox.com/forum/showth...t-new-range-in
    https://excel.tips.net/T002042_Inser...ying_Rows.html
    *** see refs also


    I tend to think of the Excel VBA Range.Insert method*** as primarily something that …… makes a space to put new range in ……( https://tinyurl.com/y2cup4o8 )
    If something happens to be in the clipboard when you use this code line, then VBA makes some assumption that you wanted what is in the clipboard put in the space. Exactly what it decides to do takes a book of explanation, ( http://www.excelfox.com/forum/showth...ll=1#post10441 ). It is left for us to figure out as there is no documentation that I know of
    In the simplest case of having a single row in the clipboard, and using the Range.Insert to make a whole row as a space, then the results are as you expect, since the obvious choice that Excel makes is to assume you want to put that copied row in the new row space.
    That is what Allen Wyatt's*** first routine does. It inserts a new empty row at the active row ( or row containing the active cell ) , but also what is in the clipboard, ( the original row ) , is put into this new row. What actually is happening is that the original row has been shifted down. A copy of that original ( which was firstly made ) , is put in the new row space
    In the second routine, he uses the Range.Insert method with nothing in the clipboard so that it just makes the row space, ( this time he inserts that space one row down ). Then he copies the row and pastes it into the new row space.
    So his two routines demonstrate well the points I am trying to make.

    To copy just some of a row to a new row:
    Using something similar to the second routine is the better alternative for only copying some of the original row to the new row space. ( The other alternative of trying to manipulate and then predict how the Range.Insert will handle a modified clipboard content is certainly possible and academically interesting, but might be a little advanced if you are VBA beginner, especially as the various Bugs and unknowns in the various Microsoft clipboards has been proven in recent years to be beyond the understanding of the Microsoft programmers themselves!! )
    So, for example, the general idea would be
    _1,
    ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
    Or, as example
    ActiveCell.Offset(1, 0).EntireRow.Resize(1, 14).Insert Shift:=xlDown
    _2, The simplest way, or first idea that springs to mind for me, is to copy the row info you want to a simple array, and then manipulate it to remove/ leave blank the info that you do not want, then paste that into the space.

    Here is a couple of routine examples, here I want just columns A to F from a row A to H
    Code:
    Sub Testies2a()
Rem 1 make a space by moving ( Shift -ing )  the rows down
 ActiveCell.Offset(1, 0).EntireRow.Resize(1, 8).Insert Shift:=xlDown ' when I Re size a range, it starts at the top left of the range, which will be in the first column either for a row or for a range starting in column 1
Rem 2 put the current active row in an array
Dim arrAH() As Variant ' The reason I need Variant is that the next line allows me to capture an entire range in one go, using the .Value property which returns the values in Variant type elements. So the type definition must match.
 Let arrAH() = ActiveCell.EntireRow.Resize(1, 8).Value ' so my array now holds cell values from columns A-H ( columns 1-8 )
'2b  remove the values you do not want
 Let arrAH(1, 7) = "": Let arrAH(1, 8) = ""
Rem 3 paste out modified array
 Let ActiveCell.Offset(1, 0).EntireRow.Resize(1, 8).Value = arrAH() ' VBA lets me do the opposite of the capture to paste out array values in oone go
End Sub
Sub Testies2b()
Rem 1 make a space by moving ( Shift -ing )  the rows down
 ActiveCell.Offset(1, 0).EntireRow.Resize(1, 8).Insert Shift:=xlDown ' when I Re size a range, it starts at the top left of the range, which will be in the first column either for a row or for a range starting in column 1
Rem 2 put the current active row in an array
Dim arrAH() As Variant ' The reason I need Variant is that the next line allows me to capture an entire range in one go, using the .Value property which returns the values in Variant type elements. So the type definition must match.
 Let arrAH() = ActiveCell.EntireRow.Resize(1, 6).Value ' so my array now holds cell values from columns A-F ( columns 1-6 )
Rem 3 paste out modified array
 Let ActiveCell.Offset(1, 0).EntireRow.Resize(1, 6).Value = arrAH() ' VBA lets me do the opposite of the capture to paste out array values in oone go
End Sub
    As example, if you start with this, with say cell B2 selected:
    Row\Col
    A
    B
    C
    D
    E
    F
    G
    H
    I
    1
    		 A1 B1 C1 D1 E1 F1 G1 H1 I1
    2
    		 A2 B2 C2 D2 E2 F2 G2 H2 I2
    3
    		 A3 B3 C3 D3 E3 F3 G3 H3 I3
    4
    		 A4 B4 C4 D4 E4 F4 G4 H4 I4


    Then using that test data, after running either routine you will get this:

    Row\Col
    A
    B
    C
    D
    E
    F
    G
    H
    I
    1
    		 A1 B1 C1 D1 E1 F1 G1 H1 I1
    2
    		 A2 B2 C2 D2 E2 F2 G2 H2 I2
    3
    		 A2 B2 C2 D2 E2 F2 I3
    4
    		 A3 B3 C3 D3 E3 F3 G3 H3 I4


    _._________________________________


    The next routine, I think will do something close to your specific question, the row to be copied is columns A-N , and you want G and H left blank

    Code:
    Sub Testies3()
Rem 1 make a space by moving ( Shift -ing )  the rows down
 ActiveCell.Offset(1, 0).EntireRow.Resize(1, 14).Insert Shift:=xlDown '
Rem 2 put the current active row in an array
Dim arrAH() As Variant '
 Let arrAH() = ActiveCell.EntireRow.Resize(1, 14).Value ' so my array now holds cell values from columns A-N ( columns 1-14 )
'2b  remove the values you do not want
 Let arrAH(1, 7) = "": Let arrAH(1, 8) = ""
Rem 3 paste out modified array
 Let ActiveCell.Offset(1, 0).EntireRow.Resize(1, 14).Value = arrAH() '
End Sub

    ref:
    Allen Wyatt *** https://excel.tips.net/T002042_Inser...ying_Rows.html
    *** https://docs.microsoft.com/en-us/off...l.range.insert


    Reply With Quote Reply With Quote
  6. 06-10-2019, 05:00 PM #146
    TallPaulUK
    TallPaulUK is offline
    Junior Member
    Join Date
    Jun 2019
    Posts
    11
    Rep Power
    0
    Hi Alan... Thank you so much for the code... It does exactly what I wanted..

    Also, thank you for your explanation as this has helped be understand more of what the code does... sometime this is more important than the solution itself.

    Keep up the good work.

    Thanks again

    Paul
    Reply With Quote Reply With Quote
  7. 06-10-2019, 10:14 PM #147
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10
    You're welcome , Paul , thanks for the feedback
    Reply With Quote Reply With Quote
  8. 06-22-2019, 03:17 PM #148
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10

    macro recording example

    In support of this Thread in main Forums:
    http://www.excelfox.com/forum/showth...d-on-condition

    A macro recording example to get some coding to help answer this……
    Quote Originally Posted by rider@1234 View Post
    all files are located in desktop
    vba is placed ........
    all files are located in desktop
    vba is placed in seperate file
    only 1 file is opened and that is vba code placed file so for this process we have to open the file as per condition and after the process completed all files should be saved and closed except vba placed file
    If column R of 1.xls file is not in minus(-1,-0.5 or xyz any negative number) then see the column E data of 1.xls and open 2.xlsx and match column E of 1.xls with column A of 2.xlsx
    and if it matches then look for any highlighted colour in that row and if any highlighted cell in that row is found then remove the highlighted colour and save the file and close all the file




    Open Excel. ( I have Office 2007 ).

    Turn on the macro recorder
    Turn On Macro Recorder.jpg : https://imgur.com/uZkZWg1
    ( I use the default macro name and place for the coding to be stored )
    Use default macro name and place where macro is stored.jpg : https://imgur.com/rR8UkT1

    I open a new file.
    Open new file.jpg : https://imgur.com/10pnrBL
    ( I am in Excel 2007, so I end up with a .xlsx file
    New xlsx File.JPG : https://imgur.com/vvqEC1w

    I save this file on the desktop, giving it the name "MainMacroFile"
    Save As.jpg : https://imgur.com/PrnZhAW
    Save As xlsx.JPG : https://imgur.com/PrnZhAW

    I resave as a file to hold macros:
    Save As xlsm.JPG https://imgur.com/5hVZAld


    I open a new file
    Open new file.jpg : https://imgur.com/vvqEC1w
    ( I am in Excel 2007, so I end up with a .xlsx file
    New xlsx File.JPG : https://imgur.com/vvqEC1w
    I save this file on the desktop, giving it the name "1"
    Save As.jpg : https://imgur.com/PrnZhAW
    Save As 1_xlsx.JPG https://imgur.com/y2uMg0i
    I resave as a 1.xls
    Save As.jpg : https://imgur.com/PrnZhAW
    Save As 1_xls.JPG : https://imgur.com/iylw8r7

    I close the file "1.xls"
    Close 1_xls.jpg : https://imgur.com/vJtdLHo
    I open the file "1.xls"
    Open 1_xls.jpg : https://imgur.com/de2MGkt
    Open 1_xls.jpg : https://imgur.com/zafLOTd

    I now take some actions, …. which are similar to your …. If column R of 1.xls file is not in minus(-1,-0.5 or xyz any negative number) then see the column E data of 1.xls and open 2.xlsx and match column E of 1.xls with column A of 2.xlsx
    and if it matches then look for any highlighted colour in that row and if any highlighted cell in that row is found     …..
    What I actually did was
    _ Put some positive numbers in column R
    _ Put some letters in column E
    _ Put some highlight in column E
    Add some numbers letters and highlighting.JPG : https://imgur.com/6ZYeaxU
    _ I take some of the highlighting off
    Take some highlighting off.jpg : https://imgur.com/Z1Rk9HD
    I save the file "1.xls"
    Save 1_xls.jpg : https://imgur.com/FmLrhjZ
    I close the file "1.xls"
    Close 1_xls.jpg : https://imgur.com/R6eqv1m

    I make a new file, "2.xlsx" , on the desktop
    New xlsx File.JPG : https://imgur.com/vvqEC1w
    Save As 2_xlsx.JPG : https://imgur.com/mHacZ74

    I close the file and open it
    Close 2_xlsx.jpg : https://imgur.com/tReoAJG
    Open 2_xlsx.jpg : https://imgur.com/jmsqNY1
    Open 2_xlsx.jpg : https://imgur.com/J3XPhz5

    I put a letter in column A of "2.xlsx"
    Put a letter in column A of 2_xlsx.JPG : https://imgur.com/9o8PTYQ
    I save the file "2.xlsx"
    Save 2_xlsx.jpg : https://imgur.com/ehSxG6b
    I close the file "2.xlsx"
    Close 2_xlsx.jpg : https://imgur.com/YyRmhfW

    I now stop the macro recorder
    Stop macro recorder.JPG : https://imgur.com/NrcDQS4
    Stop macro recorder.JPG : https://imgur.com/WRgy3mB


    Find the macro just recorded and click on Step Into
    Find macro just recorded.JPG : https://imgur.com/xK3abHT
    Find macro just recorded.JPG : https://imgur.com/34U5nm3
    ( Alternatively hit Alt+F8 )

    You can then see the recorded macro
    Recorded Macro.JPG : https://imgur.com/Mo0vfHi


    I include the code below, but have also added some 'Comments ( ' Rems) to show the steps which I manually made above

    Code:
    Sub Makro1()
'
' Makro1 Makro
'

'
' Rem I open a  new file.
    Workbooks.Add
' Rem I save this file on the desktop, giving it the name "MainMacroFile"
    ChDir "C:\Users\Elston\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Elston\Desktop\MainMacroFile.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
' Rem I resave as a file to hold macros
    ActiveWorkbook.SaveAs Filename:="C:\Users\Elston\Desktop\MainMacroFile.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    
' Rem I open a  new file.
    Workbooks.Add
' Rem I save this file on the desktop, giving it the name "1"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Elston\Desktop\1.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
' Rem I resave as a 1.xls
    ActiveWorkbook.SaveAs Filename:="C:\Users\Elston\Desktop\1.xls", FileFormat _
        :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
' Rem I close the file "1.xls"
    ActiveWorkbook.Close
' Rem I open the file "1.xls"
    Workbooks.Open Filename:="C:\Users\Elston\Desktop\1.xls"
    
' Rem I now take some actions, ….       .......  If column R of 1.xls file is not in minus(-1,-0.5 or xyz any negative number) then see the column E data of 1.xls and open 2.xlsx and match column E of 1.xls with column A of 2.xlsx
    Range("R1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("R2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("R3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "a"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "b"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "c"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "d"
    Range("E1:E4").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
' Rem  _ I take some of the highlighting off
    Range("E2").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("E3").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
' Rem I save the file "1.xls"
    ActiveWorkbook.Save
' Rem I close the file "1.xls"
    ActiveWorkbook.Close
    
' Rem I make a new file, "2.xlsx" , on the desktop
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="C:\Users\Elston\Desktop\2.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
' Rem I close the file and open it
    ActiveWorkbook.Close
    Workbooks.Open Filename:="C:\Users\Elston\Desktop\2.xlsx"
    
' Rem I put a letter in column A of "2.xlsx"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "d"
    Range("A5").Select
' Rem I save the file "2.xlsx"
    ActiveWorkbook.Save
' Rem I close the file "2.xlsx"
    ActiveWorkbook.Close


' Rem I now stop the macro recorder
End Sub
    Reply With Quote Reply With Quote
  9. 06-22-2019, 03:31 PM #149
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10
    In support of answer to this main excelfox Excel Forum Thread: http://www.excelfox.com/forum/showth...1188#post11188

    _____ Workbook: 1.xls ( Using Excel 2007 32 bit )
    Row\Col
    A
    B
    C
    D
    E
    F
    G
    H
    I
    J
    K
    L
    M
    N
    O
    P
    Q
    R
    S
    1
    		 a
    1
    2
    		 b
    2
    3
    		 c
    3
    4
    		 d
    Worksheet: Tabelle1






    _____ Workbook: 2.xlsx ( Using Excel 2007 32 bit )
    Row\Col
    A
    B
    C
    D
    1
    2
    3
    4
    		 d
    5
    6
    7
    8
    9
    10
    11
    12
    Worksheet: Tabelle1








    The two files shown above are attatched below:
    Attached Files Attached Files
    Reply With Quote Reply With Quote
  10. 06-26-2019, 03:08 PM #150
    DocAElstein
    DocAElstein is offline
    Fuhrer, Vierte Reich DocAElstein's Avatar
    Join Date
    Aug 2014
    Posts
    9,412
    Rep Power
    10
    In support of answer to this main excelfox Excel Forum Thread: http://www.excelfox.com/forum/showth...1188#post11188

    Sample file:
    _____ Workbook: MainMacroFile.xlsm ( Using Excel 2007 32 bit )
    Row\Col
    A
    B
    C
    D
    E
    1
    		 expiry date mark Brand value
    2
    27.06.2019
    		 a
    1
    3
    26.06.2019
    		 b
    2
    4
    25.06.2019
    		 c
    3
    5
    24.06.2019
    		 d
    4
    6
    23.06.2019
    		 e
    5
    7
    22.06.2019
    		 f
    6
    8
    21.06.2019
    		 g
    7
    9
    20.06.2019
    		 h
    8
    10
    27.06.2019
    		 i
    9
    11
    26.06.2019
    		 j
    10
    12
    13
    Worksheet: Tabelle1


    _____ Workbook: MainMacroFile.xlsm ( Using Excel 2007 32 bit )
    Row\Col
    A
    B
    C
    D
    E
    1
    		 expiry date mark Brand value
    2
    =TODAY() -(ROW()-3)
    		 a
    1
    3
    =TODAY() -(ROW()-3)
    		 b
    2
    4
    =TODAY() -(ROW()-3)
    		 c
    3
    5
    =TODAY() -(ROW()-3)
    		 d
    4
    6
    =TODAY() -(ROW()-3)
    		 e
    5
    7
    =TODAY() -(ROW()-3)
    		 f
    6
    8
    =TODAY() -(ROW()-3)
    		 g
    7
    9
    =TODAY() -(ROW()-3)
    		 h
    8
    10
    27.06.2019
    		 i
    9
    11
    26.06.2019
    		 j
    10
    12
    13
    Worksheet: Tabelle1

    Data analysis using VBA arrays
    I personally like to work with VBA arrays. So I put our data into an array, with this code line:
    ThisWorkbook.Worksheets.Item(1).Range("A1").CurrentRegion.Value2
    You can see what is in our arrData() if you step through the coding from within the VB Editor ( Hit key F8 with the cursor in the routine) , then before the run is finished and after the above code line ( Let arrData() ThisWorkbook.Worksheets.Item(1).Range("A1").CurrentRegion.Value2 ) , select any arrData(), and then hit key F9. This will add the array, arrData() to a watch window:
    F9 arrData().JPG: https://imgur.com/02xZas2
    F9 __ arrData().JPG: https://imgur.com/1QKwEb4
    The CurrentRegion
    The CurrentRegion range property of a range ( in this example the range is range A1 ), returns the range connected to that range which can be bordered by either empty columns and rows, or the spreadsheet boundaries. In this example , the CurrentRegion range associated with range A1, is that range enclosed by row 12, column D and the left and top spreadsheet boundaries
    _____ Workbook: MainMacroFile.xlsm ( Using Excel 2007 32 bit )
    Row\Col
    A
    B
    C
    D
    E
    1
    		 expiry date mark Brand value
    2
    27.06.2019
    		 a
    1
    3
    26.06.2019
    		 b
    2
    4
    25.06.2019
    		 c
    3
    5
    24.06.2019
    		 d
    4
    6
    23.06.2019
    		 e
    5
    7
    22.06.2019
    		 f
    6
    8
    21.06.2019
    		 g
    7
    9
    20.06.2019
    		 h
    8
    10
    27.06.2019
    		 i
    9
    11
    26.06.2019
    		 j
    10
    12
    13
    Worksheet: Tabelle1

    So this is effectively what our arrData() looks like:
    expiry date mark Brand value
    43643
    		 a
    1
    43642
    		 b
    2
    43641
    		 c
    3
    43640
    		 d
    4
    43639
    		 e
    5
    43638
    		 f
    6
    43637
    		 g
    7
    43636
    		 h
    8
    43643
    		 i
    9
    43642
    		 j
    10

    So , for example, arrData(5, 2) has a value of d, and arrData(5, 3) value is 4
    Effectively a VBA array is a fixed size spreadsheet, ( usually much smaller than a full spreadsheet ) . You cannot see its contents directly, but you can see it using the Watch Window, as discussed above. It can only have limited infomation - you cannot hold in it things like cell size and color infomation. We are using it to hold the .Value2 . .Value2 is the most fundamental value. .Value2 is usually the simple value that you see in the spreadsheet. One exception to this is with dates. The .Value2 of a date is that number held by Excel internally, which is a whole number starting at 1 for the date of January 1, 1900, and increasing by 1 for every day since then.
    So , for example, the .Value2 of January 5, 1900 is 5
    The .Value2 for the current day as I write this is 43643,which I can see if I step through the routine which is given in the example file , and hover over the variable , DteAujourd_hui , which the coding fills with the whole number part of the current date and time
    43643.jpg : https://imgur.com/mMC42MI
    The exact number you see will likely be slightly different , depending on where you are and when you run the routine
    Attached Files Attached Files
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Similar Threads

  1. Appendix Thread 2. ( Codes for other Threads, HTML Tables, etc.)
    By DocAElstein in forum Test Area
    Replies: 185
    Last Post: 05-22-2024, 10:02 PM
  2. Appendix-Thread-Evaluate-Range-(-Codes-for-other-Threads-HTML-Tables-etc-)
    By DocAElstein in forum Test Area
    Replies: 603
    Last Post: 05-20-2024, 03:31 PM
  3. Appendix Thread. ( Codes for other Threads, ( Avinash ).)
    By DocAElstein in forum Test Area
    Replies: 293
    Last Post: 09-24-2020, 01:53 AM
  4. Appendix Thread. Diet Protokol Coding Adaptions
    By DocAElstein in forum Test Area
    Replies: 6
    Last Post: 09-05-2019, 10:45 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules